Visual Basic - que esta mal

ejecuto este codigo y no funciona, ademas esta copiado la mayoria de la msdn, estan puestas las referencias y no lo entiendo

Public Sub ConectarSQL(ByVal nombre11 As String, ByVal direccion11 As String)

Dim cnn1 As ADODB.Connection
Dim rstDatos As ADODB.Recordset
Dim strCnn As String

' Open connection.
strCnn = "DRIVER={MS Access (*.mdb);DBQ=" & App.Path & "\correo.mdb}"
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn

' Open employee table.
Set rstDatos = New ADODB.Recordset
rstDatos.CursorType = adOpenKeyset
rstDatos.LockType = adLockOptimistic
rstDatos.Open "Datos", cnn1, , , adCmdTable

rstDatos.AddNew
rstDatos!Nom = nombre11
rstDatos!Dire = direccion11
rstDatos.Update
rstDatos.Close
cnn1.Close

End Sub

Hola, según unos apuntes que tengo, después de rstDatos.Update habría que poner rstDatos.MoveLast (por ej:) para que los cambios se hagan permanentes y se muestre el nuevo registro. De todas formas te voy a mandar unos pequeños apuntes de todo esto que he sacado de la página del Guille.

Un saludo.

No estoy muy relacionado con bases de datos... pero ahi te va lo k yo uso para accesar bases de datos de access...

'Ocupas tener la libreria Microsoft ADO 3.x
'Eso lo escojes en el menu PROJECT + REFERENCES

Dim DB as database 'Espacio para la base de datos
Dim RD as recorset 'Espacio para los datos
Dim SQL as string 'Opcional

'Abrir base de datos
Set DB = opendatabase(app.path & "\Base_Datos.mdb")
'Abrir tabla
'SQL debe ser un string k copntenga el nombre de la tabla k quieres
'abrir o un comando de SQL ej:
'SQL = "SELECT * FROM tabla WHERE nolmbre=''César ORDER BY
'apellido"
' o simplemente puede ser el nombre de la tabla SQL = "Tabla"
Set RD = OpenRecordset(SQL)

With RD
.AddNew
.Fields("Nombre del Campo") = "Valor"
.Update
End With

rd.close 'Cerrar espacio de datos
bd.close 'Cerrar base de datos
Set Rd = Nothing 'Liberar de la memoria
Set DB = Nothing 'Liberar de la memoria

a ver si te sirve eso...