Como se establece una conexion OleDbConnection

[sagma]

que tal, fijate en este ejemplo que tengo, que cuando me conecto o veo el login.

Código:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Conectando a la base de datos 
        Dim conBase As New OleDb.OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=C:\SagmaSoft\db_arcan.mdb;Jet OLEDB:Database Password=*********")
        conBase.Close()
        Dim strSQL As String
        strSQL = "Select * from usuarios where usuario = '" & TextBox1.Text & "' and clave = '" & TextBox2.Text & "'"
        Dim daEmp As New OleDb.OleDbDataAdapter(strSQL, conBase)
        Dim dsEmp As New DataSet
        daEmp.Fill(dsEmp, "Log")
        'Si el dataset obtuvo un registro es que si es valido el Usuario y la clave 
        If dsEmp.Tables("Log").Rows.Count = 1 Then
            Me.DialogResult = DialogResult.OK
            Me.Close()
            'Dim a As New frmmain
            'a.Show()
        Else
            'MessageBox.Show("Mensaje","titulo",System.windows.forms.MessageBosButtons.Accept)
            'MessageBox.Show("DESEA ELIMINAR","IMPORTANTE", MessageBoxButtons.OKCancel, MessageBoxIcon.Error) 
            MessageBox.Show("Usuario o contaseña no valida", "Mensaje de Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Text = ""
            TextBox2.Text = ""
            Me.TextBox1.Focus()
        End If

    End Sub

suerte