"quartz" wrote in message
...
I have the following function in which I am attempting to copy an array
into
an ADO recordset directly from the current sheet in Excel. This generates
an
error. Can this even be done? If so, how? Can someone please correct my
function?

Private Function ADOCopyArrayIntoRecordset(argArray As Variant) As
ADODB.Recordset
Dim rsADO As Object
Dim lngR As Long
Dim lngC As Long
Set rsADO = CreateObject("ADODB.Recordset.2.8")
For lngR = 1 To UBound(argArray, 1)
For lngC = 1 To UBound(argArray, 2)
rsADO.Fields(lngC - 1).Value = argArray(lngR, lngC)
Next lngC
rsADO.MoveNext
Next lngR
End Function

Thanks much in advance.

I think you should use Set rsADO = CreateObject("ADODB.Recordset")
Do you get an error message?

/Fredrik