1。在菜单编辑中输入 "-"。
2。到一个模块里去定义。窗体中的Public变量在外部可用 form1.val1 访问。
3。设置grid的数据源为此recordset即可。
4。不要用 Load Form1 方式，在模块中申明 Public frmForm1 As Form1, 然后用：
Set frmForm1 = New Form1
Load frmForm1
使用时：
frmForm1.Show等。
释放时：
Unload frmForm1
set frmForm1 = Nothing
即可，注意不能在使用 Form1 否则前功尽弃！
1。在菜单编辑中什么位置加“-”，请说具体一点好吗？
3。用data_grid1.DataSource = rst语句，没有任何错误，但DATAGRID不显示数据，怎么回事？
1.标题(&P):后面.
2. set adodata1.recordset = rst
set data_grid1.DataSource = adodata1
Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.ConnectionString = "driver={SQL Server};server=king;uid=pearl;pwd=zbz1999;database=icecream01"
cnn.ConnectionTimeout = 30
cnn.Open
If cnn.State = adStateOpen Then
MsgBox "Connection to IceCream Successful!"
Else
MsgBox "Connection to IceCream Fail!"
End If
Set rst = cnn.Execute("select * from test01")
Form1.DataGrid1.DataSource = rst
End Sub
执行时出现错误“未找到方法或数据成员”，问题肯定出在Form1.DataGrid1.DataSource = rst这句，怎么回事？
1在标题框中输入“-”，同时别忘了在名称框中输入名字。
2在模块中定义。窗体中的Public变量在外部可用 form1.val1 访问
该说的他们都说了，记住UNLOAD 一个窗体后不要在引用这个窗体的其他控件，会重新加载FORM1。完了。
谢谢各位啦