Visual Basic.NET - Ayuda con Conexion .mdb

Hola a toda la comunidad, soy algo nuevo en este campo de la programacion y quisiera que me ayudaran con elgunas dudas que tengo acerca de una conexcion que estoy haciendo pido su ayuda para mejorarla o para saber cual es mi error, de antemano muchsa gracias.

atte. Roberto Molina
Honduras

Try

' EN ESTE CODIGO SE ESPESIFICA LA RUTA DE LA BASE DE DATOS
Dim ruta As String = CurDir()
Dim conexion As String = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" + ruta + "\bd1.mdb"

Dim RESPUESTA = MsgBox("DESEA MOSTRAR TODOS LOS REGISTROS DE LA TABLA EXISTENCIA", MsgBoxStyle.YesNo)
If RESPUESTA = 6 Then
Dim conn As New OdbcConnection()
conn.ConnectionString = conexion
'EN ESTE CODIGO SOLO SE TIENE ACCESO A TODOS LOS DATOS
Dim cmd As New OdbcCommand
Dim CADENA As String

CADENA = "select * from EXISTENCIA ORDER BY TITULO"
cmd.CommandText = CADENA

cmd.Connection = conn
conn.Open()
Dim dA As New OdbcDataAdapter
dA.SelectCommand = cmd
Dim midataset As New DataSet
dA.Fill(midataset, "EXISTENCIA")
'EN ESTE CODIGO SOLO SE MUESTRAN LOS DATOS
'paso los datos a el datagridview1
DataGridView1.DataSource = midataset
DataGridView1.DataMember = "EXISTENCIA"
DataGridView1.AutoResizeColumns()
Else
Exit Sub
End If


Catch exc As Exception
MessageBox.Show(exc.Message.ToString())
End Try