如何login 所有Datasource?(編號:3967)

若果每個Form都有幾個datasource(MSRDC),如何可以在login時候(i.e.user enter the username and password in the login form)同時間login所有 Datasource?
Dim cn As New rdoConnection
Username = txtname.Text
PW = txtPw.Text
cn.Connect = "dsn=A01;database=tempdb;UID=" & frmLogin.Username & ";PWD=" & frmLogin.PW & ""
cn.EstablishConnection
Set Form1.MSRDC1.Resultset = cn.OpenResultset("select * from temprecord1")
'error occur Form1.MSRDC1.Resultset <object variable or with block variable not set>
Set Form1.MSRDC2.Resultset = cn.OpenResultset("select * from temprecord2")
Set Form1.MSRDC3.Resultset = cn.OpenResultset("select * from temprecord3")

p.s. use VB6.0 and SQL server7.0
Thanks!