月星家居在哪: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
ms.Fields(2) = Text1(2).Text '该字段为性别：字符型 我输入 f
ms.Fields(3) = Val(Text1(3).Text) '该字段为年龄：整型 我输入 12
ms.Fields(4) = Text1(4).Text '该字段为院系：字符型 我输入 ds
ms.Fields(5) = Text1(5).Text '该字段为专业：字符型 我输入 ff
ms.Fields(6) = Text1(6).Text '该字段为入学年份：时间类型 我输入 2003-9-1
ms.Fields(7) = Text1(7).Text '该字段为备注：字符型 我输入 f
ms.Update
MsgBox"添加成功", 49, "成功"
ms.Close

End Sub

运行之后，后台的stu数据库中怎么没有所添加的数据呢？高手们指点一下啊？
本人在线等候！！
楼下的这位仁兄，我看了下你的代码，好像跟我的没什么区别啊？再说了，我试了下还是没有数据啊！不过还是要感谢你了！

请问还有哪位高手知道啊？
本人急死了，老师布置要做个系统，马上就要交了，高手帮帮忙啊！