[VB6] Connessione Databse

[Petra]

Private conn As ADODB.Connection
Private strConn As String
Private rs As ADODB.Recordset
Private strSql As String

Private Sub Form_Load()
Set conn = New ADODB.Connection
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data\data.mdb;Persist Security Info=False"
conn.ConnectionTimeout = 5
conn.CursorLocation = adUseClient
conn.Mode = adModeShareDenyNone
conn.Open strConn
Set rs = New ADODB.Recordset
strSql = "Select * From OPERE"
rs.ActiveConnection = conn
rs.LockType = adLockOptimistic
rs.Open strSql, conn, 1, 3
dataGrid.DataSource = rs
End Sub

Cosa sbaglio in questo codice ? ? ? Qualcuno mi potrebbe postare il codice giusto per connettermi ad un database perfavore ? ? ? Vi ringrazio!!!

[Last_Winter]

Non sò che errore ti restituisce cmq la stringa di connessione è questa:

"Driver={Microsoft Access Driver(*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd =;"

http://www.connectionstrings.com/