请问，如何用类编写数据库访问程序？

[songless]

能帮我该正和完善这个程序吗?
Option Explicit


Private conn As New ADODB.Connection
Private rs As New ADODB.Recordset
Private cmd As New ADODB.Command

Public H_ID As String
Public myDate As Date

Private Sub Class_Initialize()

Set conn.Open = ""
Set cmd.ActiveConnection = conn
rs.CursorLocation = adUseClient
cmd.CommandText = "SELECT * from patient"
rs.Open cmd, , adOpenStatic, adLockBatchOptimistic

End Sub

Public Sub AddGlassList()
rs.AddNew

rs!H_ID = H_ID
rs!Name = Name
rs!Date = myDate

rs.Update
End Sub