VB和Access2003做的登陆窗体的问题

我的代码是
Public con As New Connection '定义数据连接，公共变量
Public user, pwd As String

Sub main()
ChDir App.Path '转换相对路径

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=InstrumentManage.mdb;Persist Security Info=False"
'定义数据库连接
con.CursorLocation = adUseClient '以客户端的方式打开

con.Open ' 打开连接
系统管理员.Show
End Sub

'登陆窗体...

Private Sub cmdOk_Click()
Dim rs As New Recordset
If (txtUser.Text = "") Or (txtPwd.Text = "") Then
MsgBox "用户名和密码不能为空!", vbOKOnly, "错误"
Exit Sub
End If
user = txtUser.Text
pwd = txtPwd.Text
sql = "select * from 系统管理员 where 用户名='" + user + "' and 密码='" + pwd + "'"
Set rs = con.Execute(sql)
If rs.EOF Then
MsgBox "用户名和密码错误!", vbOKOnly, "错误"

ACCESS2003 和VB 连的是时候 知道为什么连不上吗》 VB请教：如何把ACCESS97的程序改成ACCESS2003的？？ access2003的概述和功能介绍，与数据库的关系 请教高手:怎么在Dreamweaver中连接数据库(用的是asp.net vb,access2003) 我想用VB中的Ado与带密码的Access2003连接，怎莫办 access2003 打开VB和用VB做的程序都出问题 access2003下载,就只要ACCESS2003,单独安装的 求数据库access2003的视频教程？ ASP+access2003的数据库连接问题.