使用.NET Framework组件中的DataGrid显示ADO中的RecordSet对象的记录

虽然在VB.NET中可以使用com组件中的DataGrid控件来显示ADO中的RecordSet对象的记录,但是com组件中的DataGrid控件的功能远没有.NET Framework组件中的DataGrid控件强大,其实也可以用.NET Framework组件中的DataGrid控件显示ADO中的RecordSet对象的记录,在VB.NET论坛看到大多数人只用过.NET Framework组件中的DataGrid控件来显示ADO.NET中的DatsSet对象的记录.
        那么,对于使用.NET Framework组件中的DataGrid显示ADO中的RecordSet对象的记录是怎样呢?

    Imports ADODB
    Imports System.Data
    Imports System.Data.OleDb


    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim rs_YPDZT As New ADODB.Recordset   
       Dim sql As String
        sql = "select * from YPFLG_DZT "
        rs_YPDZT.CursorLocation = CursorLocationEnum.adUseClient
        rs_YPDZT.Open(sql, conn, CursorTypeEnum.adOpenKeyset, LockTypeEnum.adLockPessimistic)

        Dim ds_YPDZT As New Data.DataSet
        Dim da_YPDZT As OleDbDataAdapter
        da_YPDZT = New OleDbDataAdapter(sql, gLinkString)
        da_YPDZT.Fill(ds_YPDZT, rs_YPDZT, "YPB")
        StatusBar1.Panels.Item(0).Text = username
        DataGrid1.DataSource = ds_YPDZT.Tables("YPB")
    End Sub

.NET Framework组件中的DataGrid显示ADO中的RecordSet对象的记录,必须将RecordSet匹配给DataSet,如上语句:da_YPDZT.Fill(ds_YPDZT, rs_YPDZT, "YPB")!