求助登陆问题传递数据

If Text1.Text = "" Or Text2.Text = "" Then
     MsgBox "请输入完整的用户名及密码！", vbCritical, "警告"
  Else
     cn.Open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & App.Path & "\test.mdb"
     rs1.CursorLocation = adUseClient
     rs1.Open "Select * From 用户表 Where 用户名='" & Text1.Text & "'", cn, adOpenKeyset, adLockOptimistic
    
     If rs1.EOF = True Then
        MsgBox "无此用户！", vbCritical, "警告"
        cn.Close
        Exit Sub
     End If
     If rs1.EOF = False Then
         strA = rs1.Fields(1)
         If Text2.Text = strA Then
         czy = Text1.Text         Unload Me
         MsgBox "恭喜,登陆成功！", vbOKOnly, "提示"
         Load Form1
         Form1.Show
      Else
        MsgBox "密码错误！", vbCritical, "提示"
           Text3.Text = strA
           intCount = intCount + 1
           cn.Close
           If intCount = 3 Then
             MsgBox "密码错误登录次数超过限制次数！", vbCritical, "警告"
             End
        End If
 End If
End If
End If我在前1个窗体已经完成上面代码 并进行登录验证!如何将登录用户名带到下个窗体（form1）使用?