verbinding probleem access database

[phobia]

ik heb al van alles geprobeerd, zou iemand mij kunnen vertellen hoe ik een verbinding kan maken met
een access database?
ik probeer dit maar geen msgbox

        Dim con As New OleDb.OleDbConnection
        Dim ds As New DataSet
        

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=E:\essilor\Access\Ex_Essilor.accdb"

        con.Open()
        MsgBox("Database Opened")
        Dim sql As String

 

[mastermindzh]

Dat kan zo

SqlConnection con = new SqlConnection();
con.ConnectionString = "Data source=[COLOR="#FF0000"]E:\essilor\Access\Ex_Essilor.accdb[/COLOR];";
con.Open()

 

[phobia]

is er veel verschil tussen een .accdb of een .mdb database?

Ik heb hem nu werken met .mdb denk dat ik daar ook maar op moet doorgaan omdat de pc waar het op moet gaan draaien pas office2003 draaid

 

[mastermindzh]

Dat kan je hier terugvinden: http://databases.about.com/od/access/a/accdb.htm

 

[phobia]

thnx ik zal eens gaan lezen!

 

[ongenae]

Ik werk via een module met de naam DBCONNECTION.vb

Module DBCONNECTION
    'DECLARATIE
    Public con As New OleDb.OleDbConnection
    Public dbprovider As String
    Public dbsource As String

    Public Sub CONNECTION()

        'ERROR ONDERSCHEPPING
        On Error GoTo err

        'OPEN DATABASE CONNECTIE
        dbprovider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        dbsource = "Data Source= K:\Application\DATABASE.mdb"

        con.ConnectionString = dbprovider & dbsource

        con.Open()

        'ERROR HANDLING
        Exit Sub
err:
        MsgBox("Benodigde database niet gevonden." & vbCrLf & "Het programma wordt nu afgesloten", MsgBoxStyle.Exclamation, "ERROR")
        Application.Exit()
        Exit Sub
        Resume
        'END ERROR HANDLING

    End Sub
End Module

In mijn formulier "call" ik dan die module:

        'OPEN DATABASE CONNECTIE
        Call CONNECTION()

 

[phobia]

ja, ik was ook al met een module begonnen.
ik import de module alleen. Ik weet niet of dat de manier is of dat het zo hoort.
Maar het werkt en dat is het belangrijkste!
Ik heb er ook dim's in staan, die ik nog als functies moet omzetten, die
het maken en verwerken van de dataset helpen.