VB中datagrid如何添加

界面里点击datagrid控件，

法一：如果已经连接数据禅旅手源、表、有查询语句，单击右键，选择“字段刷新”（retrieve fields），确定。

法二：单击右键，选择“编辑”（edit）编辑该控件，通过编辑控件（此贺嫌时镇滚再次单击右键，插入行或列）完成

列数是兄渗自动的，就碰尘正是记录集的字段数

'Ctrl+t找Microsoft DataGrid Control....

'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

Dim cn As New ADODB.Connection

Dim rst As New ADODB.Recordset

Dim SqlStr As String

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\db1.mdbMode=ReadWritePersist Security Info=FalseJet OLEDB:Database Password=111"

SqlStr = "Select * From 某个表"

rst.CursorLocation = adUseClient

rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打笑悔开记录集

Set DataGrid1.DataSource = rst '给DataGrid修改数据源

---