我的软件就剩这么一个问题了，而且我自己解决了快一个月了，老大们帮帮我吧

con.Close
set con=nothing
请问以上代码是什么意思？我好像没用过啊？
我在程序中是这样写的
data1.databasename= "d:\mydata.mdb"
data1.recordsource= "aaa"
我在另一个简单的程序中试验了一下用一下代码关闭的
data1.databasename=""
data1.refresh
这样就可以了，可是回到我的代码中，老是提示“对象变量或with块未设置”，我看了看出错的代码实在另一个窗体中
If Form1.ListView1.ListItems.Count > 0 Then
Dim i, Count As Integer
Count = Form1.ListView1.SelectedItem.Index
Form1.Data3.Recordset.MoveFirst
i = 1
Do While i < Count
Form1.Data3.Recordset.MoveNext
i = i + 1
Loop
Form1.ListViewItem = Count
Text1.Text = Form1.Data3.Recordset.Fields("jfdw")
Text2.Text = Form1.Data3.Recordset.Fields("jfje")
Yje = Text2.Text
Text5.Text = Form1.Data3.Recordset.Fields("pjbh")
Text4.Text = Form1.Data3.Recordset.Fields("bz")
If TxN = "" Then
Text3.Text = "系统"
Else
Text3.Text = TxN
End If
End If

我在程序中用了十几个data控件，我一一把他们的databasename属性都清空了，怎么还不行啊?快帮帮我吧，我的软件就剩下这么一个问题没有解决了，不能让我功败垂成啊。望朋友们教教我！朋友们请留下信箱好不好，如果你们的回答我看不太懂的话我再写信问你们。我的信箱是sdmyhy@21cn.com