Access - No consigo conectar

Hola a todos-as...
esto no me funciona
Sub probando()


Dim cnn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim SQL As String

Try
' Configuramos y abrimos la conexión
With cnn
.ConnectionString = _
"Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Mis documentos\Bd1.mdb"
.Open()
End With

Catch ex As Exception
MessageBox.Show(ex.Message, _
"Error al abrir la conexión", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

cnn.Close()

Exit Sub

End Try

End Sub

Hola Jesus ricarte

Este foro es de Access y tu codigo debe funcionar en .NET pues VBA no reconoce esas instrucciones

Saludos
Desde Venezuela
Jefferson

Gracias por contestar Jefferson...
ya he conseguido conectar...

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer

Set cn = CurrentProject.Connection
Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

Es correcto Jesus, ahora solo debes cerrar

cn.close
rs.close

Set cn = nothing
Set rs = nothing



Desde Venezuela
Jefferson