ADO db koppeling argument fout

[harolda1980]

Zodra ik bij de regel RSTVM.open kom krijg ik de volgende foutmelding(zie foto).
Kan iemand hier mee verder helpen?

    Private Sub searchPerson()
        Dim CNNADO As ADODB.Connection
        Dim RSTVM As ADODB.Recordset
        Dim strcnn As String
        CNNADO = New ADODB.Connection
        CNNADO.Provider = "Microsoft.Jet.OLEDB.4.0"
        strcnn = "\\Fp1\Inkoopbeheer\Vermaatcontact.mdb"
        CNNADO.Open(strcnn)
        RSTVM = New ADODB.Recordset
        RSTVM.Open(SQLString, CNNADO, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)
        Do While Not RSTVM.EOF

            ListView1.Items.Add(RSTVM.Field(1), RSTVM.Field(2))

        Loop
        RSTVM.Close()
        CNNADO.Close()
        RSTVM = Nothing
        CNNADO = Nothing
    End Sub

 

[harolda1980]

Ik vroeg mij af of iemand mij kan helpen of desnoods een andere oplossing weet?