Jag undrar hur man skriver koden för att ansluta via ODBC till en accessdatabas i VB

Varför använda ODBC? När du kan använda JET över DAO eller JET över ADO?

i modulen:

Public dbKoppling As ADODB.Connection

Public Sub koppladb() 'öppna
Set dbKoppling = New ADODB.Connection
dbKoppling.Open "DSN=namnPåKopplingen"
End Sub

Public Sub stängdb()'stäng
dbKoppling.Close
Set dbKoppling = Nothing
End Sub

i formuläret:
Call koppladb

Set Tävling = New ADODB.Recordset
sql = "select tavlingsnamn from ttavling order by tavlingsnamn"
Tävling.Open sql, dbKoppling, adOpenStatic
Do Until Tävling.EOF 'listar alla tävlande i listruta
lstTävlingar.AddItem Tävling.Fields(0)
Tävling.MoveNext
Loop
Tävling.Close

mvh perra