Dim dyn_tmp() As String
Dim rcs As New ADODB.Recordset
 
rcs.Fields.Append "Feld1", adInteger
rcs.Fields.Append "Feld2", adLongVarChar, 1024
rcs.open
For i = a To b
rcs.AddNew
rcs(0) = 25
rcs(1) = "test"
rcs.Update
Next i