Could you all look for a problem in this ADO? TIA

Public Sub PlainTextQuery()

    Dim rsData As ADODB.Recordset
    Dim szConnect As String
    Dim szSQL As String

    szConnect = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
                "Data Source=C:\Test\Calls.mdb; "

    szSQL = "SELECT Date, Skillset, Calls " & _
            "FROM Calls " & _
            "ORDER BY Date"

    Set rsData = New ADODB.Recordset
    rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

    If Not rsData.EOF Then
        Sheet1.Range("A2").CopyFromRecordset rsData
        rsData.Close
        With Sheet1.Range("A1:C1")
            .Value = Array("Date", "Skillset", "Calls")
            .Font.Bold = True
        End With
        Sheet1.UsedRange.EntireColumn.AutoFit
    Else
        MsgBox "Error: No Records Returned.", vbCritical
    End If

    If CBool(rsData.State And adStateOpen) Then rsData.Close
    Set rsData = Nothing

End Sub

Gives Run-time error '-2147217904(80040e10)

This is almost identical to one in the VBA books. Thanks.

This is fixed...thx Bob