Visual Basic - porque no funciona

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