Salve ragazzi,

ma cosa sbaglio in questo ?
Perchè mi restituisce un errore di run-time alla riga del ciclo for ?

Private Sub Comando0_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim stsql As String
Dim i As Variant

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & ("c:/db1.mdb") 'Server.mapPath non so cos'è..

stsql = "SELECT Data FROM tabella1"
rs.Open stsql, conn, 3, 3

For i = 0 To UBound(stsql)

MsgBox stsql

Next i

rs.Close
Set rs = Nothing

conn.Close
Set conn = Nothing
End Sub