Option Explicit

Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private strSQL As String
Private strCon As String

Private Sub cmdOK_Click()

If Me.txtName = "" Then
MsgBox "名称不能空"
Exit Sub
End If
If Me.txtPsw = "" Then
MsgBox "密码不能空"
Exit Sub
End If

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TestDataGrid.mdb"
strSQL = "insert into [user] values ('" & Me.txtName & "','" & Me.txtPsw & "')"
Set conn = New ADODB.Connection
With conn
.Open strCon
.Execute strSQL
.Close
End With

'更新DataGrid1中的数据
'------------------------------
'这样OK！
'------------------------------
MsgBox "添加成功！"

Me.Adodc2.Refresh

'------------------------------
'这样不行
'------------------------------

' strSQL = "select * from [user] "
' Set rs = New ADODB.Recordset
' rs.Open strSQL, conn
' Set DataGrid1.DataSource = rs
' DataGrid1.Refresh

Set conn = Nothing
Set rs = Nothing
End Sub

没看懂。
你知道什么是Adodc，什么是Adodb不？

帮定了ADODC 控件撒!

还是二楼的话.

用了adodc就不要用adodb了.

ADODC和TEXT等控件一样可以“看的见”
ADODB 必须引用 然后再实例化
LS的话我有点不同意
用了ADODC后是可以用ADODB的 至少我是这么理解的 可以用的 错了希望高手指正 学习学习

是可以用.
但最好统一风格.

关注这个问题 做个记号

昨天光看2楼的发言了 没怎么注意看你代码
今天一来看了看 就前几句 看完后 就不想往下面看了
那2个句 写出来多费力啊没这样的方便啊
If Me.txtName = "" or ME.txtPsw="" Then
MsgBox "请检查输入内容是否为空"，48，“警告！！！”
Exit Sub
End If