谢了.

Dim MyConStr As String
Dim UserCount As Integer
Dim Mycn As New ADODB.Connection
Dim Myrs As New ADODB.Recordset
MyConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\StuAcc.mdb"
Mycn.Open MyConStr
Mycn.CursorLocation = adUseClient
Myrs.Open "Select * From User_Property", Mycn, adOpenKeyset, adLockPessimistic

添加可以用addnew方法..
更新用update方法..

帮加上一句提示: 执行2楼的代码之前，必须先在"工程"-"引用"中选中 Microsoft ActiveX Data Objects x.x (x.x 是版本号，最好选最新的版本)

连ACCESS也可以吗?

当然。

Access和SQL都可以用这个方法的连接的，再补充一点
MyConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\StuAcc.mdb"
这句代码要自己写的话可能有点困难，可以在窗体里添加一个ADODC控件，先用ADODC控件连接，然后把ADODC控件自动生成的驱动代码复制到这里来，在按上面语句改一改就方便很多了

用App.Path自动识别数据库路径往往容易出错.......

往往容易出错??????不是吧...强烈建议用app.path