Imports System.Data.OleDb

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4; Data souce=C:\Documents and Settings\Administrador\Mis documentos\prueba.mdb"

            Dim oCON As OleDbConnection = New OleDbConnection(strCon)
            oCON.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try


    End Sub
End Class

"Provider=Microsoft.Jet.OLEDB.4.0;..."