create a recordset / database table

[ppl1]

im trying to create a disconnected recordset to be the record source of a data control.
so i wrote-
Dim rs As New ADODB.Recordset
rs.ActiveConnection = Nothing
rs.CursorLocation = adUseClient
rs.LockType = adLockBatchOptimistic
rs.fields.Append "name", adBSTR, 30
rs.fields.Append "last", adBSTR, 30
rs.Open
rs.AddNew
rs.fields("name") = "x"
rs.fields("last") = "y"
Data1.RecordSource = rs
Data1.Refresh

but im getting the runtime error-> "type mismatch"
how can i do that? whats wrong?
thanks in advanced.

[ppl1]

anyone? plz...

[Shuja Ali]

anyone? plz...

I would use a ADODC data Control instead of the Data Control. To get ADODC in your toolbox, right click on the Toolbox, select components and in the new dialog that comes up look for Microsoft ADO Data Control 6.0.

Also Data control that is present in the toolbox by default does not support dynamic recordsets. So thats the reason you are getting this error.

Try this instead

    Dim rs As New ADODB.Recordset
    rs.ActiveConnection = Nothing
    rs.CursorLocation = adUseClient
    rs.LockType = adLockBatchOptimistic
    rs.Fields.Append "name", adBSTR, 30
    rs.Fields.Append "last", adBSTR, 30
    rs.Open
    rs.AddNew
    rs.Fields("name") = "x"
    rs.Fields("last") = "y"
    Set Adodc1.Recordset = rs
    Debug.Print Adodc1.Recordset.Fields(0).Value
    Debug.Print Adodc1.Recordset.Fields(1).Value
    Debug.Print Adodc1.Recordset.Fields(0).Name
    Debug.Print Adodc1.Recordset.Fields(1).Name
    Debug.Print Adodc1.Recordset.RecordCount

ADODC1 is the Microsoft ADO Data Control which was selected from the Components dialog.

[ppl1]

its working now
thanks for the help (again)