求助某一个类的代码

[zheng518]

我现在正在写一个图书管理系统，我用VB为前台开发工具、Access2000为数据库的管理系统，我必须加紧时间完成任务，否则公司会怪罪的。其中一个登陆模块里，我想写一个类，以便操作时凭用户ID就能得到该用户的全部信息，而无须在判断和赋值。可是这个类运行时不起作用。我想请教各位大侠，能否帮小弟写一个相关的类来参考！

[neo40]

自己写的类名为myRs

Public ss As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Function SsOpen()
On Error Resume Next
ss.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
ss.Open
End Function

Public Function SsClose()
On Error Resume Next
ss.Close
End Function

Public Function RsOpen(SQL As String) As ADODB.Recordset
On Error Resume Next
With rs
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open SQL, ss
End With
Set RsOpen = rs
End Function

Public Function RsClose()
On Error Resume Next
rs.Close
End Function
'----------------------------------------
'登陆时的代码

Dim rs As New myRs

Private Sub Command1_Click()
rs.SsOpen

rs.RsOpen "select * from 用户 where 用户名='" + Text1.Text + "' and 密码='" + Text2.Text + "'"
If rs.rs.EOF Then
MsgBox "你输入的用户名或密码错误！", 0, "提示"
Text2.Text = ""
Text1.SetFocus
rs.RsClose
rs.SsClose
Exit Sub
End If

mainfrm.Show
username = rs.rs.Fields("用户名")
usercontrol = rs.rs.Fields("权限")
rs.RsClose
rs.SsClose
Unload Me
End Sub

Private Sub Command2_Click()
End
End Sub

---------------------------
'模块里的定义
Public username As String
Public usercontrol As String

以后就可以随时调用这个用户的信息了