晕~~~提示是

添加出错[Microsoft][ODBC驱动程序 管理器]未发现数据源名称并且未指定默认驱动程序

还请详细指点~~~~~~谢谢

我把程序给你发过去了，还请多指点~~~

晕，那个森林资源信息系统的东东是你的吗？
我看了一下，有二个问题。第一：
Data1.DatabaseName = App.Path + "\" + "xbsj.mb"
这个文件我找不到。
第二，我不习惯用你的方式打开数据库，我只会：
Private Sub Form_Load()

Set gconnect = CreateObject("ADODB.Connection")
Dim strConnection As String
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\bbb.mdb"
gconnect.Open strConnection
End Sub
的方法打开数据库，用：
gRecordset.AddNew
gRecordset.fields("姓名") = Trim(Text1.Text)
gRecordset.fields("单位") = Trim(Text2.Text)
gRecordset.fields("id") = rs("id") + 1
gRecordset.Update
MsgBox "添加成功", vbOKOnly, ""
gRecordset.Close
添加数据。

你的是用OLEDB,但他用ODBC应该也是可以的啊