[VB 2010] - Errore accesso file access

[lucausa75]

Salve ragazzi,

sto cercando di aprire un database access tramite VB 2010 ma mi viene visualizzato il seguente errore:



Queste le righe di comando per connettermi; dove sta l'errore?

            CnnReg = New ADODB.Connection
            RstReg = New ADODB.Recordset
            StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & SystemPath() & DB & ";Jet OLEDB:Database Password=databaseconpassword;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
            CnnReg.Open(StrCnn)
            StrSql = "SELECT * FROM " & TB & " WHERE IDSeriale <> 0"
            RstReg.CursorType = ADODB.CursorTypeEnum.adOpenStatic
            RstReg.CursorLocation = ADODB.CursorLocationEnum.adUseClient
            RstReg.Open(StrSql, CnnReg)

Grazie

[lucausa75]

Risolto cambiando la stringa di connessione:

da

StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & SystemPath() & DB & ";Jet OLEDB:Database Password=databaseconpassword;Mode=ReadWrite|Share Deny None;Persist Security Info=False"

a

StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & SystemPath() & DB & ";Jet OLEDB:Database Password=databaseconpassword"