让数据库在列表框中显示，它却说实时错误91：对象变量或with块变量未设置 ，是怎么回事，在线等~急！！

Private Sub Form_Load()
With Adodc1
.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\Administrator\桌面\环境系数据库.mdb;persist security info=false"
.CommandType = adCmdTable
.RecordSource = "环境系数据库"
.Recordset.MoveFirst
Do While Not .Recordset.EOF
If .Recordset.Fields("性别").Value = "女" Then
List1.AddItem .Recordset.Fields("姓名").Value
.Recordset.MoveNext
Else: .Recordset.MoveNext
End If
.Refresh
Loop
End With
End Sub

答案：Private Sub Form_Load()
With Adodc1
.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\Administrator\桌面\环境系数据库.mdb;persist security info=false"
.CommandType = adCmdTable
.RecordSource = "环境系数据库"
.Refresh

.Recordset.MoveFirst
Do While Not .Recordset.EOF
If .Recordset.Fields("性别").Value = "女" Then
List1.AddItem .Recordset.Fields("姓名").Value
.Recordset.MoveNext
Else: .Recordset.MoveNext
End If

Loop
End With
End Sub

其他：1.你有没有引用adodc组件(你没有引用的可能性为99%)
　　右件工具条，然后点部件菜单，在弹出的界面中找到
　　Microsoft  ADO control ……
　　在前面勾上，然后点确定，工具条中就多了adodc组件，然后拖一个该组件放在你的程序窗体中，应该就可以了

2. 你的数据库是否存在,表是否建立？ 

嘿嘿，已经有最佳答案了，看来我要查对一下源码了…… 

……
……

对比过了，看来还真是源码问题， 

上一个：如何新建VBA模
下一个：Dreamweaver中 我缩小了窗体 图片没有跟着按比例改变小 我该怎做才能让他在缩小窗体时 里面的内容也变小