Hi,
if got a little testing-database with about 20 recordsets into it. i want them to be read out but the code below gives only the first recordset in the fieldproperty. what have i done wrong?

thanks
akademos

private Sub Form_Load()
Dim sql as string

sql = "select * from roman"
set theRecordset = new ADODB.Recordset
theConn.ConnectionString = "Provider = SQLOLEDB.1;Initial Catalog = PerryRhodanEnt;User ID =sa"
theConn.Open

theRecordset.Open sql, theConn, adOpenKeyset, adLockOptimistic, adCmdText
for Each Field In theRecordset.Fields
If Not (IsNull(Field.Value)) then
MsgBox Field.Value
End If
next
End Sub