Visual Basic - No puedo conectarme ADO

Tengo el siguiente codigo:

Dim MiConexion As ADODB.Connection
Set MiConexion = New ADODB.Connection
MiConexion.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=Admin;Data Source=Mi ejemplo de DNS"
MiConexion.Open
If MiConexion.State = adStsteopen Then
MsgBox "Bienvenido a la Base de Datos Actividades de las Educadoras"
Else
MsgBox "La conexion no pudo ser realizada con exito"
End If
MiConexion.Close

El problema es que siempre me manda el mensaje el cual dice que no se pudo conectar.

Ya configure mi ODBC, la confusion es que en modo execute si lo hace o sea con el sig codigo:

Dim MiConexion As ADODB.Connection
Dim MiRecordset As ADODB.Recordset
Set MiRecordset = New ADODB.Recordset
Set MiConexion = New ADODB.Connection
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=H:\prueba multiusuario\ActiviEduc.mdb"
MiConexion.Open
Set MiRecordset = MiConexion.Execute("Select * from apartea")
MsgBox MiRecordset(0)
MiRecordset.Close
MiConexion.Close

Alguien sabe por que no puede hacer la conexion.

Ayudenme por favor
De antemano gracias
Saludos desde México D.F.

hola...
verifica que el nombre de tu dns sea "Mi ejemplo de DNS"...
y el proveedor que estas usando...

saludos
isidroalmaguer

Hola Juan Jose!

Declaras y Seteas las conexiones cada vez que quieres abrir la B.D.?, si la contestacion es SI, intenta poner las DIM junto al Option Explicit de tu Form y los Set en el Evento Load del Form de esta forma no tendrás que hacerlo cada vez. Si la contestacion es NO, quizás deverias utilizar el mismo acceso a datos, por probar!!

Un saludo
lucKas

¡Vaya! si lo hubiera visto antes te habría contestado hace tiempo. Lo siento, pero es que no vengo mucho por aquí:

Lo tienes todo bien, pero te falta dar la ubicación del cursor antes de abrir la conexión:

MiConexion.CursorLocation = adUseClient
MiConexion.Open

Un saludo