天津二手房降价了吗:各位高手帮我一个忙:VB的,简单!!!!!

看程序:
public con As New ADODB.Connection
public rs As New ADODB.Recordset

Public Sub main()
If ConnectToServer <> True Then
MsgBox "有错了!"
Else
If querydata = True Then
Form1.Show
End If
End If
End Sub

Public Function ConnectToServer() As Boolean
On Error GoTo connectErr
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=LABORAGE_DATABASE;Data Source=."
ConnectToServer = True
Exit Function
connectErr:
ConnectToServer = False
MsgBox "ÓдíÎó·¢Éú!" & Err.Number & vbCrLf & "´íÎóÃèÊö:" & Err.Description, , "错误"
End Function

Public Function querydata() As Boolean
On Error GoTo queryerr
rs.Open "select * from denglus", con, adOpenDynamic, adLockOptimistic, -1
querydata = False
Exit Function

queryerr:
querydata = False
MsgBox "ÓдíÎó·¢Éú!" & Err.Number & vbCrLf & "´íÎóÃèÊö:" & Err.Description, , "Á¬½Ó´íÎó"

End Function

运行后总是出现错误:错误代码：3709错误描述：连接无法用与执行此操作．在次上下文中可能它一被关闭或无效

数据库都可以连上了就是不知道为什么后面记录集的错误．