如何绑定ADODB.Recordset

Dim adoRs As New ADODB.Recordset
        Dim SQLStr As String
        SQLStr = "select 企业名称,年度 from info order by 建立时间 DESC"
        adoRs.Open(SQLStr, cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) '记录集
        C1FlexGridClassic1.DataSource = adoRs
        adoRs.Close()

    'Function cnn() As ADODB.Connection '连接１，基本信息数据库
    '    cnn = New ADODB.Connection
    '    cnn.Open(&quotrovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\ACCESS\db.mdbersist Security Info=False")
    'End Function
'请问为何无法显示表格内容？

Dim da As New System.Data.OleDb.OleDbDataAdapter
        Dim ds As New DataSet

        Dim adoRs As New ADODB.Recordset
        Dim SQLStr As String
        SQLStr = "select 企业名称,年度 from info order by 建立时间 DESC"
        adoRs.Open(SQLStr, cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) '记录集

        da.Fill(ds, adoRs, "us")
        C1FlexGridClassic1.DataSource = ds.Tables("us")

回复 2楼pan00001的帖子

好的，感谢你的反馈问题解决方法。谢谢