高手指点下啊：我编写的类模块为什么添加数据呢。下面是我的代码。

一个窗体的数据库维护：
Private add As ClsData
Private Sub Command1_Click()
    Call add.addnew
End SubPrivate Sub Form_Load()
    Dim rs As ADODB.Recordset
    Dim strsql As String
    Set rs = New ADODB.Recordset
    strsql = "select * from Student "
    rs.Open strsql, datasj.gConn, adOpenStatic
    Set DataGrid1.DataSource = rs
    
    Set txtXm.DataSource = rs
    txtXm.DataField = rs("姓名").Name
    
    Set txtXb.DataSource = rs
    txtXb.DataField = rs("性别").Name
    
    Set txtXbb.DataSource = rs
    txtXbb.DataField = rs("系别").Name
    
    Set txtBj.DataSource = rs
    txtBj.DataField = rs("班级").Name
    
   
    
End SubOption Explicit
Dim gconnectionstring As String
Dim cn As ADODB.ConnectionSub main()
    gconnectionstring = "DBQ=" & App.Path & "\test.mdb ;driver={microsoft Access driver (*.mdb)};"
   
    datasj.gConn.Open
    frmMain.Show
End SubOption Explicit
Public Function addnew(strsql As String, str As String)
    Dim rs As ADODB.Recordset
    strsql = "select * from student where 姓名=" & str & ""
    rs.Open strsql, datasj.gConn, adOpenKeyset, adLockOptimistic
    rs!姓名 = txtXm.Text
        rs!性别 = txtXb.Text
        rs!系别 = txtXbb.Text
        rs!班级 = txtBj.Text
    
End FunctionPublic Function del(strsql As String)End FunctionPublic Function update(strsql As String)End Function
怎么添加数据不进去呢