那位高手帮我看一下，vb的登陆界面问题 必有重谢！！

Public conn As ADODB.Connection
Sub main()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=sa;Initial Catalog=syrh;Data Source=127.0.0.1"
conn.Open
from1.Show '登录界面
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
Text2.SetFocus
Exit Sub
End If

Dim strSQl As String
strSQl = "select * from Users where users_name='" & Trim$(Text1.Text) & "' and password='" & Trim$(Text2.Text) & "' "

Dim str As New A

那位VB高手帮我看一下面的VB代码,为什么不能unload语句卸载frmHello,不能用load语句装载frmDisText vb 的高手帮我看一下 那位高手帮我写几句VB的语句 那位高手帮我看一下，什么地方出问题了？ 那位高手帮我看一下这段源代码？ 那位高手帮我看一下装机单 那位高手帮我看一下000619深套 电脑配置那位高手帮我看一下我的配置，谢谢了 那位高手帮我看一下我 的系统日志!!! 我的电脑总是蓝屏那位高手帮我看一下呀?