VB 高手在吗？

本人用vb做了个学生管理系统，其中档案的添加和查询，运行没有错，但是添加之后，数据库中却没有所添加的数据，请高手指点一下是什么原因，本人谢过了！！
Module1中的代码是：
Public Function Execute(ByVal sql As String) As ADODB.Recordset
Dim ans1 As ADODB.Connection
Dim rst1 As New ADODB.Recordset
Set ans1 = New ADODB.Connection
ans1.Open "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\stu.mdb"
On Error GoTo exec_error
Set rst1 = New ADODB.Recordset
rst1.Open sql, ans1, adOpenStatic, adLockBatchOptimistic
Set Execute = rst1
exec_error:
Set rst1 = Nothing
Set ans1 = Nothing
Exit Function
End Function

添加窗体的模块是：
Dim j%
Dim ms As ADODB.Recordset
Dim s As String
s = "select * from 档案" '数据库stu中的一个表为档案
Set ms = Execute(s)

ms.AddNew
ms.Fields(0) = Text1(0).Text '该字段为学号：字符型 我输入123456
ms.Fields(1) = Text1(1).Text '该字段为姓名：字符型 我输入 f