是这样的,我的数据控件在这个窗体中,想要判断它中有没有数据的话,必须打开数据控件,而这样的话,包含它的窗体就自动加载了,这时候判断它有没有数据,在关闭或者隐藏它,按照以上的方法没有一个可以用的,这就麻烦了,大家还有什么办法呢?

你用一个Recordset集就可以知道有没有数据啦，如果Recordset = 0就不显示窗体嘛
例如：
有两个窗体,一个是主窗体，一个是显示数据的窗体，运行时先显示主窗体，然后在主窗体的Activate事件里判断，Form1为主窗体，Form2为数据显示窗体，示例代码如下：

Private Sub Form1_Activate()
Dim cnn as ADODB.Connection
Dim rst as ADODB.Rescorset

cnn.open "........." '连接数据库
rst.open "Select * from 数据表",cnn,adOpenKeyset ,adLockOptimistic '取出数据,你的DataGird控件一定是绑定着一个数据表的对吧？rst.open就是查找你绑定的那个数据表的内容

IF rst.RecordsetCount <> 0 Then '如果数据表里有数据
Form2.Show
End If
End Sub
不知道这样是不是楼主你要求的效果

那就写个sub main函数
if 1>2 then
form1.show
else
endif