Espero esto te sirva.
Conexión
Option Explicit
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub Conectar()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
cn.Open "Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Pruebas;Data Source=."
End Sub
Public Sub Desconectar()
On Local Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Persistencia contra DB
'*********************************************************************************
'* Inserción y devuelve el Id *
'*********************************************************************************
Public Function AddCliente(cliCodigo As String, cliRuc As String, cliRSocial As String, idUbigeo As String, cliDireccion As String, cliTelefono As String, cliEmail As String, cliDni As String) As String
Dim NextCliente As String
On Error GoTo AddChequeError
NextCliente = GetNextId(cliCodigo)
xMarca = NextCliente
' Insertar Nueva Linea
Call Conectar
strSQL = "INSERT INTO Clientes(cli_codigo, cli_ruc, cli_rsocial, id_ubigeo, cli_direccion, cli_telefono, cli_email, cli_dni, cli_disponible)"
strSQL = strSQL & " VALUES ('" & NextCliente & "','" & cliRuc & "', '" & cliRSocial & "', '" & idUbigeo & "', '" & cliDireccion & "', '" & cliTelefono & "', '" & cliEmail & "', '" & cliDni & "', 'A')"
' strSQL = "xspAddMarca '" & NextMarca & "', '" & Descripcion & "'"
cnMDB.Execute strSQL
AddCliente = CStr(cliCodigo)
On Error GoTo 0
Exit Function
AddChequeError:
AddCliente = ""
MsgBox Err.Description
On Error GoTo 0
End Function
Pedro Ávila
"El hombre sabio querrá estar siempre con quien sea mejor que él."
Lima - Perú