VB.NET Problemas conexión Con clases

[galletica12]

prueba con esta:

Código:

Public Sub New()
        InitializeComponent()
        Dim cadena_conexion As String
        cadena_conexion = String.Format("Provider=Microsoft.jet.OLEDB.4.0; 
Data Source=" + My.Application.Info.DirectoryPath + "\usuarios.mdb")
        Try
            conexion = New OleDb.OleDbConnection(cadena_conexion)
            conexion.Open()
        Catch ex As OleDb.OleDbException
            MessageBox.Show("No se ha podido conectar al servidor "
 + ex.Message)
        End Try
    End Sub