Okay:
Her er først databaseforbindelse i et modul for sig:
Option Explicit
Const dbName = "db\mindb.mdb"
Const dbProvider = "Microsoft.Jet.OLEDB.4.0"
Dim dbConnect As ADODB.Connection
Dim cat As ADOX.Catalog
Dim tblList As ADOX.Table
Public Sub DatabaseConnect()
Set dbConnect = New ADODB.Connection
dbConnect.Provider = dbProvider
dbConnect.Open dbName, "admin", ""
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = dbConnect
End Sub
Det kalder jeg så i starten af min Form_Load() således:
Private Sub Form_Load()
DatabaseConnect
....
End Sub
Jeg har også forsøgt at kalde proceduren med modulnavnet først, med samme
resultat.
G'nat og tak for hjælpen
Thomas
"Carsten Suurland" <carsten@suurland.dk> wrote in message
news:TX058.6895$Eu2.807897@news010.worldonline.dk...
> Hej Thomas
>
> Jo... det er bare sådan du skal gøre.
> Men om det så virker... det afhænger jo i høj grad af hvordan den
resterende
> del af din kode ser ud.
>
> Prøv at send noget kode... så kan vi se på det.
>
> /Carsten Suurland
>
>