Ayuda con combo

cspetros
13 de Enero del 2006
como puedo hacer para que lo que escribo en un textbox se cargue a la lista de un combo, y a la vez a una base de datos??? gracias

Rosa
13 de Enero del 2006
Hola, espero que esto te ayude:

Private Sub Command1_Click()

Dim cn As ADODB.Connection

'Se agrega a la base de datos.
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Datos.mdb;Persist Security Info=False"
cn.Open
cn.Execute "insert into Tabla (Campo) values ( '" & txtCampo.Text & "')"
cn.Close
Set cn = Nothing

'Se agrega al combobox
Combo1.AddItem (txtCampo.Text)

End Sub