Truco para añadir un registro a la base de datos:
Com.ActiveConnection = Cn 'activa la conexion Com.CommandText = "INSERT INTO TABLA (CAMPO1,CAMPO2) VALUES (1" & Me.CmbNom.Text & "','" & Me.CmbVer.Text & "')") Com.Execute 'ejecuta la sentencia sql