Private Sub cmdadd_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim quan As Boolean
If Check1.Value = 1 Then
quan = True
Else
quan = False
End If
conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\data.mdb;" & "persist security info=false"
conn.Open
rs.Open "select * from admin", conn, adOpenKeyset, adLockBatchOptimistic
rs.AddNew
rs.Fields(1).Value = Text1.Text
rs.Fields(2).Value = Text2.Text
rs.Fields(3).Value = quan
rs.Update
rs.Close
conn.Close
End Sub
为什么添加不了记录？
没有错误提示

rs.Open "select * from admin", conn, adOpenKeyset, adLockBatchOptimistic 中的 adOpenKeyset, adLockBatchOptimistic 是记录集指针类型，你可以看看指针类型说明，你的问题估计就是在这里。

一般在新增数据时应该选择  adLockOptimistic，adOpenDynamic 即 rs.Open "select * from admin", conn, 3, 2

参考 https://wenku.baidu.com/view/8aa7832f0066f5335a81217a.html