谁能用VB帮我设计一个登录界面，和ACCESS连接。我是一点都不会啊。谢谢了

以下是模块:
Public con As New Connection '定义数据连接，公共变量
Public coon, coom As String
Public str As Currency

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

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=False"
'定义数据库连接
con.CursorLocation = adUseClient '以客户端的方式打开
con.Open ' 打开连接
dl.Show
End Sub
以下是登陆窗体...代码
Dim rec As New Recordset
Dim rs As New Recordset

Private Sub Command1_Click()

If (Text1.Text = "") Or (Text2.Text = "") Then
MsgBox "用户名和密码不能为空!", vbOKOnly, "错误"
Exit Sub
End If
coon = Text1.Text
coom = Text2.Text
sql = "select * from dl where gly='" + coon + "' and mm='" + coom + "'"
Set rs = con.Execute(sql)
If rs.EOF Then
MsgBox "用户名和密码错误!", vbOKOnly, "错误"
Text1