[VB6] ottimizzare ricerca in db Access

[bottaweb]

risolto anche questo:

Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Mode = adModeShareDenyRead
cn.CommandTimeout = 25
cn.Open Adodc1.ConnectionString
Set rs.ActiveConnection = cn
rs.Source = " SELECT * FROM CLIENTI"
rs.Open , cn, adOpenKeyset, adLockOptimistic, adCmdText
If rs.RecordCount > 0 Then
   'abilita i bottoni Avanti e Indietro
End If
End Sub