[VB6]Che database usare

[martini_luca]

no devi usare Ado

Dim Cn As New ADODB.Connection 
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database\Data.mdb" & ";Persist Security Info=False" 
Cn.Open


Dim RsRetValue As New ADODB.Recordset
     
RsRetValue.Open "SELECT Codice from Codici where id=1", Cn, adOpenKeyset,adLockOptimistic
If RsRetValue.EOF Then
        ..
Else
        ..
End If

spero di non avere fatto errori di copia incolla.