添加完记录之后,那三个textbox不更新!

Private Sub comAdd_Click()    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim str As String
    str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password = password;Initial Catalog=dmd;Data Source=USTC-CHENLUFENG"
    
    
    conn.Open (str)
    SQL = "select * from home"
    rs.Open SQL, conn, adOpenDynamic, adLockOptimistic
    rs.AddNew
    rs.Fields("name") = txtName.Text
    rs.Fields("old") = txtOld.Text
    rs.Fields("tel") = txtTel.Text
    rs.Update
    '我想点玩这个按钮之后,name\ode\tel。txt更新显示为最后一条记录。现在点完按钮之后这3个textbox还是原来的记录。
    
    
    Label4.Caption = "add ok !!!"
    MsgBox "ok", vbInformation
    
    Set rs = Nothing
    Set conn = Nothing
End Sub