如何在VB中实现向ACCESS数据库添加数据

  Set Db = OpenDatabase(App.Path & "\user.DBF", False, False, ";pwd=7994") '数据库USER，打开需要密码7994
  Set Rs = Db.OpenRecordset("KSCJ")  ’ACCESS表的名称为KSCJ
  Set Rs = Db.OpenRecordset("select * from KSCJ where [考号]='" & UserKH & "'")  ‘查询某考号数据
    If Rs.RecordCount > 0 Then '已经有成绩
          UserHS = Rs(0)
          UserKH = Rs(1)
          UserXZF = Rs(4)
       If UserZF > UserXZF Then  '以成绩高的为准
          Set Rs = Db.OpenRecordset("KSCJ") 
           Rs.MoveFirst
           Rs.Move UserHS - 1
           Rs.Edit
           Rs(4) = UserZF  '写入总分
           Rs.Update
           Rs.Close
       End If
       endif