Dear Users,

I continue to show an error on this piece of code. What should I declare Adodc1 as?


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim StrConnect As String
        Dim cn As ADODB.Connection
        Dim rs As ADODB.Recordset


        kStart = txtStart.Text
        kStop = txtEnd.Text

        StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\DATA\ACCESS\13FloorEquipment.mdb"
        cn = New ADODB.Connection()
        cn.Open(StrConnect)
        nItem = CboItems.Text

        Listbox1.Items.Clear()

        strSQL = strSQL & "SELECT * FROM(Requests) "
        strSQL = strSQL & "WHERE (([ItemName]= '" & nItem & "')"
        strSQL = strSQL & "AND (([StartDate])"
        strSQL = strSQL & "BETWEEN #" & kStart & "#"
        strSQL = strSQL & "AND #" & kStop & "#));"

        'rs = cn.Execute(strSQL)
        rs = New ADODB.Recordset()
        MsgBox(kStart)
        MsgBox(kStop)
        MsgBox(strSQL)
        With rs
            .ActiveConnection = cn
            .CursorLocation = ADODB.CursorLocationEnum.adUseServer
            .CursorType = ADODB.CursorTypeEnum.adOpenKeyset
            .LockType = ADODB.LockTypeEnum.adLockOptimistic
            '.Properties("IRowsetIdentity") = True
            .Open(strSQL, cn)

        End With
'******************************************
        ADODB1.Recordset = rs
        DataGrid1.DataSource = ADODC1.Recordset
'************************************************
    End Sub

I commented out the line of code :
Set Adodc1.Recordset = rs
and
Changed the following line to :
Set DataGrid1.DataSource = rs

But recieved the following error:

Additional information: Complex DataBinding accepts as a data source either an IList or an IListSource

I am totally lost someone please help