ADO # Dim db As Connection
Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=MSDASQL;dsn=Utenze;uid=;pwd=;" Dim Rs As New ADODB.Recordset Set Rs = New Recordset Rs.Open "Select * from Stabili", db, adOpenStatic, adLockOptimistic Dim strFormat As String strFormat = Rs.GetString |