Ciao,
sto per la prima volta tentando di inserire dati su un db e i dice che il set corrente noin supporta l'aggiornamento.
Lo faccio come segue.
.... per prendere il dato da una combo è giusto combo1.text???
codice:
Private Sub Command1_Click()
Dim i As Integer
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=MSDASQL; Data Source=tigabor; Database=tigabor; User Id=; Password=; Security Info=True"
cn.Open
Set rs = cn.Execute("SELECT * FROM vettori")
rs.AddNew
rs.Fields(tipo) = Combo1.Text
rs.Fields(compagnia) = Text1.Text
rs.Fields(codice) = Text2.Text
rs.Update
rs.Close
cn.Close
Text1.Text = ""
Text2.Text = ""
End Sub