使用.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") !