Ayuda,como guardar los datos en una BD de SQL?

[pabli]

Si no controlas de ADO mira la ayuda, pero con esto te debería servir:

Código:

'EN UN MÓDULO
Global Gado_conn    As ADODB.Connection 'Abre una conexión
Global Gado_command As ADODB.Command 'Envía comandos

Public Function SUB_Abrir_BBDD() As Integer
    'Creo un objeto Connection para abrir la conexión mediante ADO
    Set Gado_conn = New ADODB.Connection
    Gado_conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=usuario;Password=loquesea;Initial Catalog=labbdd;Data Source=elservidor_o_la_IP"
    
    'Creo un objeto Command para ejecutar las inserciones y actualizaciones
    Set Gado_command = New ADODB.Command
    Gado_command.ActiveConnection = Gado_conn
    Gado_command.CommandType = adCmdUnknown 'Predeterminado
End Function

'EN EL FORMULARIO
'Monto la cadena SQL con los datos de las cajas
Gado_command.CommandText = "INSERT INTO tabla (campo1, campo2) VALUES (" & txt1.text & "," & txt2.text & ")"
'Actualizo
Gado_command.Execute

Y ya está.
Cuidadín, si los campos de la BBDD son tipo texto ponle comillas simples en el SQL.

Saludos
Pablo