Får detta felmeddelande när jag försöker köra mitt program skrivet i VB6.

Option Explicit
Dim ADOC As ADODB.Connection
Dim ADORS As ADODB.Recordset
Dim databas As String

Private Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Set ADOC = New ADODB.Connection
Set ADORS = New ADODB.Recordset

ADOC.Open "Provider=Microsoft.Jet.OLEDB.4.0; data source = " & databas
ADORS.Open "SELECT * FROM serie INNER JOIN team ON serie.id2 = team.id2 ORDER BY id2", ADOC, adOpenDynamic, adLockBatchOptimistic, adCmdText
databas = "tabmat.mdb"
End Sub

Vad är problemet??

Du tilldelar variabeln databas värdet efter att du har använt den, det är säkert en del av felet iaf. Testa såhär:

Option Explicit
Dim ADOC As ADODB.Connection
Dim ADORS As ADODB.Recordset
Dim databas As String

Private Sub Form_Load()
    ChDrive App.Path
    ChDir App.Path
    Set ADOC = New ADODB.Connection
    Set ADORS = New ADODB.Recordset
    
    databas = "tabmat.mdb"
    ADOC.Open "Provider=Microsoft.Jet.OLEDB.4.0; data source = " & databas
    ADORS.Open "SELECT * FROM serie INNER JOIN team ON serie.id2 = team.id2 ORDER BY id2", ADOC, adOpenDynamic, adLockBatchOptimistic, adCmdText
   End Sub 

TACK!!
En är allt bra dum emellanåt. Är lite "rookie" på detta. Har tagit upp det igen efter några års träda.
Tack än en gång.