问个关于VB连接SQL问题

Function Login(ByVal UserName As String, ByVal Pwd As String, XiBie As String) As Boolean
Dim Conn As New ADODB.Connection
Conn.Open ConnStr   '连接字符串,自己设置
Dim Rs As New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open "Select 系别 From 用户表 Where 用户名='" & UserName & "' and 密码='" & Pwd & "'"
'验证登录成功
If Rs.EOF And Rs.BOF Then   '验证失败
Login = False
Else                        '验证成功返回成功及系别
XiBie = Rs.Fields(0).Value
Login = True
End If
Rs.Close
Conn.Close
End Function
Private Sub Command1_Click()
'调用验证
Dim xb As String
If Login(Text1.Text, Text2.Text, xb) Then
Select Case xb
Case "英语系"
eng.Show
Case "汉语系"
chs.Show
'case ^^^^^^
Case Else
Default.Show
End Select
Else
MsgBox "用户或者密码错误"
End If
End Sub

你要理清思路，先做什么，后做什么。
首先，用户登陆，前台能传到数据里的是ID，
其次，数据里根据前台传过来的ID进行select出来系别，
再次，将数据简索到的系别返回到前台，前台进行判断分发并跳传页面。