[VB2010] - Errore connessione Access

[lucausa75]

Salve ragazzi,

cos'è che mi crea l'errore in questa sub che gira nell'evento Form_Load di un form?

Vedi immagine sotto il codice...

    Private Sub VerificaRegistrazione(ByVal DB As String, ByVal TB As String, ByVal MySeriale As String, ByVal MyForm As Form)
        Dim StrCnn As String
        Dim StrSql As String
        CnnReg = New ADODB.Connection
        RstReg = New ADODB.Recordset
        Tabella = TB
        StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Application.StartupPath & _
                 "\" & DB & ";Jet OLEDB:Database Password=pass"
        CnnReg.Open(StrCnn)
        StrSql = "SELECT * FROM " & TB & " WHERE NumeroSeriale = '" & MySeriale & "'"
        RstReg.CursorType = ADODB.CursorTypeEnum.adOpenStatic
        RstReg.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        RstReg.Open(StrSql, CnnReg)
        If RstReg.RecordCount > 0 Then
            Me.Hide()
        Else
            MyForm.Show()
        End If
    End Sub

Grazie!

[lucausa75]

...l'errore è quì:

se utilizzo questa Source per il Recordset

StrSql = "SELECT * FROM " & TB

funziona ma appena aggiungo il WHERE

StrSql = "SELECT * FROM " & TB & " WHERE NumeroSeriale = '" & MySeriale

mi viene visualizzato quell'errore di cui al post precedente