Visual Basic - AYUDA URGENTE CON CONEXION SQLSERVER

HOLA TENGO EL SIGUIENTE PROBLEMA

INTENTO HACER UNA CONEXION A SQLSERVER CON ODBC CON EL SIGUIENTE CODIGO

Private Sub Command4_Click()

Dim wrkODBC As Workspace
Dim conPubs As Connection
Dim rstTmp As Recordset


' Create an ODBCDirect workspace.
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "acceso_reca", "elias", dbUseODBC)

' Open a connection to an ODBC data source.
Set conPubs = wrkODBC.OpenConnection("Connection1", _
dbDriverPrompt, , "ODBC;DATABASE=recaudacion;UID=" & "acceso_reca" _
& ";PWD=" & "elias" & ";DSN=" & "recaudacion")

' Open a recordset which is read-only by default.
Set rstTmp = conPubs.OpenRecordset("chofer", dbOpenDynamic)

rstTmp.AddNew
rstTmp!nombre = "elias"
rstTmp!apellidos = "elias"
rstTmp.Update
rstTmp.Close
conPubs.Close
wrkODBC.Close

End Sub

PERO NO ME DEJA INSERTAR EL REGISTRO, PUES ME DICE QUE ESTA EN SOLO LECTURA

CUALQUIER COLABORACION O AYUDA ES BIENVENIDA

YA LO SOLUCIONE BYE

Hola Elias... me interesa tu código ya que estoy intentando hacer algo similar pero aún no lo logro tengo mi conexion pero el odbc lo hago desde herramientas administrativas y por lo que se no es muy recomendable... si me haces favor de apoyarme te lo agradeceria mucho.

gracias... Saludos.