Buonasera.
Ho il seguente codice,che mi restiuisce questo Errore : IErrorInfo:getDescription non riuscito conE_FAIL(0x80004005) sulla riga DR = cmdzone.ExecuteReader().
Qualcuno di voi può aiutarmi?
Grazie mille.
Sub nonp()
Dim strSqlZone As String = "Select comune From ZONE ORDER BY comune"
Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\AreaPersonale\\statItalia.mdb")
Dim cmdzone As New OleDb.OleDbCommand(strSqlZone, cn)
Dim DR As OleDbDataReader
Try
If cn.State <> ConnectionState.Open Then
cn.Open()
End If
DR = cmdzone.ExecuteReader()
While (DR.Read())
Dim v_zona As String = DR("zona")
nonpervenute.ListBoxNP.Items.Add(v_zona)
End While
Catch ex As Exception
MsgBox(ex.Message & Environment.NewLine & ex.StackTrace)
Finally
If cn.State = ConnectionState.Open Then
cn.Close()
End If
End Try
End Sub