labolsa.com

estoy un poco oxidado pero a ver si te sirve ...

Esto es un código que escribí hace muchos años. La conexión con la base de datos se hacía con ADO. Las instrucciones para modificar o introducir nuevos registros son órdenes en SQL, que en principio las debe aceptar el Visual Basic incluso aunque no se use ADO sino otra tecnología de conexión a bases de datos.
------------------------------------------------------------------------
Private Sub CargarAviso()
Dim rs As New ADODB.Recordset
rs.Open "select * from avisos where IDaviso=" & pbIDaviso, pbConexion, adOpenStatic, adLockReadOnly
If Not rs.EOF Then
txtDia = rs!dia
txtMes = rs!mes
txtAnyo = rs!anyo
txtAviso = rs!texto
cmbTipo.ListIndex = rs!Tipo
Else
MsgBox "Aviso no encontrado!", vbCritical, "Error"
End If
End Sub

Private Sub GuardarAviso()
Dim rs As New ADODB.Recordset
Dim OK As Boolean
rs.Open "select * from avisos where IDaviso=" & pbIDaviso, pbConexion, adOpenStatic, adLockReadOnly
If Not rs.EOF Then
'SQL para modificar aviso
Call pbConexion.Execute("UPDATE avisos SET anyo=" & txtAnyo & ", mes=" & txtMes & _
", dia=" & txtDia & ", texto='" & EscapaComillas(txtAviso) & _
"' , tipo=" & cmbTipo.ListIndex & " " & _
"WHERE IDaviso=" & pbIDaviso)
Else
'SQL para crear aviso
Call pbConexion.Execute("INSERT INTO avisos " & _
"(anyo,mes,dia,texto,tipo) VALUES (" & txtAnyo & _
", " & txtMes & ", " & txtDia & _
", '" & EscapaComillas(txtAviso) & _
"', " & cmbTipo.ListIndex & ")")
End If
End Sub