请大侠帮帮忙啊

Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\个人图书.mdb;Persist Security Info=False"
Conn.Open st
If Trim(Text1.Text) <> "" Then
   ' Adodc1.Refresh
    
    Rs.AddNew
    Rs.Fields("题目名称") = Trim(Text1.Text)
    Rs.Fields("题目类别") = Combo1.Text
    Rs.Fields("学生姓名") = Trim(Text2.Text)
    Rs.Fields("指导老师1") = Trim(Text3.Text)
    Rs.Fields("指导老师2") = Trim(Text4.Text)
    Rs.Fields("年份") = Trim(Text5.Text)
    Rs.Fields("学号") = Trim(Text6.Text)
    Rs.Fields("班级") = Trim(Text7.Text)
    Rs.Fields("分类") = Combo2.Text
    Rs.Fields("成绩") = Combo3.Text
    Rs.Update
   ' Rs.MoveLast


End If

这样是错的吗?怎么就是不行呢?

补充：VB ,  数据库(包含打印，安装，报表)