****VB与SQL SERVER之间的奇怪问题~~！！

Question

我的目的是在自定义的模块中做好连接数据库（连接的方法是使用ODBC与数据库进行连接,数据源名为：SysConn1）
然后在其他的窗体使用到SQLSERVER
数据时直接调用即可，可是老是在调用第二次时出错，我也不知道是哪里出了错，还请大家指点一下：1、我在工程中定义了一个明名为：Module1，在模块中写了如下语句：Option Explicit
Global DaConn As New rdoConnection
Global setRdoa As rdoResultset
----------------------------------------------------------------------------------------
Public Function DataConnect()
   On Error GoTo ErrorHandler
   With  DaConn
       .Connect = _
       "Driver={SQL Server};SERVER=home;DATABASE=Mydata1;DSN=SysConn1;UID=sa;PWD=123"
       .LoginTimeout = 3
       .CursorDriver = rdUseOdbc
       .EstablishConnection rdDriverComplete
   End With
   Exit Function
ErrorHandler:
   MsgBox(Err.Description & Chr(13) & "请与计算机系统人员联系！" )
End Function
----------------------------------------------------------------------------------------
2、然后建立一个新窗体，在FORM_LOAD事件中写入以下语句:
Private Sub Form_Load()
  DIM Sql AS string
  Call DataConnect      Sql1 = "SELECT * FROM tab1 "
  Set SetRdoa = DaConn.OpenResultset(Sql1, 2)
  If setRdoa.RowCount > 0 Then
        setRdoa.MoveFirst
        msgbox setrdoa.rdoColumns(0)
  End If
  
  Sql1 = "SELECT * FROM tab2 "
  Set SetRdoa = DaConn.OpenResultset(Sql1, 2)  '----执行到这一句时就出错了
                                               '----错误提示为：“对象不支持该属或方法!”
  If setRdoa.RowCount > 0 Then
      setRdoa.MoveFirst
      msgbox setRdoa.rdoColumns(0)
  End if
  
end sub