i have this code to open tset

but is possible to set the cursorr type adOpenForwardOnly, adLockReadOnly

[codebox]RSD1.CursorLocation = adUseClient
SSQL = "SELECT * FROM STAFF WHERE MATR = '" & INDICE_RICERCA & "' ORDER BY MATR"
Set RSD1 = CNSQL2.Execute(SSQL)

CNSQL2....

Public Sub APRI_CONNESSIONI_SQL2()

On Error GoTo errore

'TABLENAME = "STAFF"
'CONTA_REC = Empty
'\\\\\\\\\\\\\\\\\
'CNSQL2.CursorLocation = adUseServer
'CNSQL2.CommandTimeout = 120
'CNSQL2.Open "Provider=SQLOLEDB.1;Password=sal21;" & _
"Persist Security Info=True;User ID=sa;Initial Catalog=DB_PAST_DUE;" & _
"Data Source=10.232.185.108\SQLEXPRESS"
'\\\\\\\\\\\\\\\\\\

'RSD1.Open "SELECT MATR FROM STAFF, CNSQL2, adOpenKeyset, adLockReadOnly"
'CONTA_REC = RSD1.Fields("Cnt")
'RSD1.Close

'SQL = "TRUNCATE TABLE STAFF"
'CNSQL.Execute SQL
CNSQL2.CursorLocation = adUseClient
CNSQL2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\APPLICAZIONI\DB_PAST_DUE.mdb;"

Exit Sub 'esce dall'esecuzione dell'istanza,

errore:
MsgBox "Errore Numero: " & CStr(Err.Number) & vbCrLf & _
"Descrizione: " & Err.Description & vbCrLf & _
"Sorgente dell'Errore: " & Err.Source

Err.Clear

End Sub[/codebox]