Torna al Thread
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=nomedb;Data Source=(local)"
rs.Open "SELECT * FROM tabella", cn, adOpenDynamic, adLockOptimistic
'fai quello che devi...
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing