Visual Basic - importamte conexion

amigos tengo un progrma que hace una consulta a una base de datos accees el me hace todo bien el problema esque quiero hacer la conexion con odbc he leido mucho pero no he logrado hacerla
espero que me ayuden se los agradeceria muchisimo hai le agrego la parte de busqueda del codigo

Dim cn As ADODB.Connection, rs As ADODB.Recordset, rs2 As ADODB.Recordset

Private Sub Command1_Click()
Unload Form3
Form3.Show
Form3.buscar rs.Fields(0).Value
End Sub

Private Sub Form_Load()
Dim sql As String
Dim cadena As String
Set cn = New ADODB.Connection
cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\minproteccion.mdb"
cn.ConnectionString = cadena
cn.Open
Set rs = New ADODB.Recordset
sql = "select *FROM desp" & " where " + Trim(Form1.Text1.Text) + " like '" + Trim(Form1.Text2.Text) + "%'" & "order by " & Form1.Text1.Text & " "
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

Saludos Jorge:

Posiblemente tu problema radica en la cadena de conexión. En tu caso la variable "cadena".

No la declares como tal... en su lugar coloca el nombre del odbc que has creado. Es decir, si tu ODBC se llama "ConexionAccess", tu valor en la variable cadena se vería así:

cadena = ConexionAccess

Pruebalo y luego me avisas.