Visual Basic - Problemas con DataGrid en ADO

Tengo un Problema al querer abrir una base de datos con ADO, para despues visualizar los datos en un DataGrid, ya intente todo lo que se, pero sigue igual, mi codigo es:

Dim cnn As ADODB.Connection
Dim Comando As ADODB.Command
Dim rst As ADODB.Recordset

Private Sub Form_Load()
Set cnn = New ADODB.Connection
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\school2005.mdb"
' mi base de datos esta hecha en Acces 2002, supongo que no hay problemas por tener poco registros
.CursorLocation = adUseClient
.ConnectionTimeout = 30
.Open
End With
Set Comando = New ADODB.Command
Set Comando.ActiveConnection = cnnConexion
Comando.CommandType = adCmdText
Comando.CommandTimeout = 15
Comando.CommandText = "select * from alumnos"

Set rst = Comando.Execute()
Set drgDestino.DataSource = rst
drgDestino.Refresh
'drgDestino es el nombre de mi DataGrid
End Sub

cuando lo ejecuto me manda un error que no puede encontrar el archivo de base de datos Espero k me puedan ayudar porfavor...............

Aqui va el codigo que debes ocupar
Ojo: debes sacar lo del Command y ejecutar directo con Recordset tal como esto:

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Set cnn = New ADODB.Connection
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "c:\BD.mdb"
' mi base de datos esta hecha en Acces 2002, supongo que no hay problemas por tener poco registros
.CursorLocation = adUseClient
.ConnectionTimeout = 30
.Open
End With

rst.Open "select * from alumnos", cnn

Set drgDestino.DataSource = rst
drgDestino.Refresh