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