Private Sub Command1_Click()
Dim stemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "select * from user"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Me!密码 <> 确认密码 Then
MsgBox "两次输入的密码不一致，请重新输入", vbExclamation, "Error"
Exit Sub
Else
stemp = "insert into user"
stemp = stemp & "(用户名，密码，身份证号)"
stemp = stemp & " values('" & Me!用户名 & "','" & Me!密码 & "','" & Me!身份证号 & "')"
DoCmd.RunSQL stemp1
Set rs = Nothing
End If
MsgBox "The information of register have saved already!", vbExclamation, "information"
End Sub

If Me!密码 <> 确认密码 Then

没看过这种的写法，你确定这种写法可行？
这里面，出现两种写法了。统一一下。
------------

stemp = stemp & "(用户名，密码，身份证号)"
这里面的逗号好像是中文的，要改成英文的。

----------
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
DoCmd.RunSQL stemp1
1、RS打开了，但没有使用到。Rs应该是用来检查是否已存在用户，已有的代码有误，也缺少关键代码。
2、引用的连接对象不一致，检查你的连接数据库的代码及对象名。这个应该是用类打开的数据库，还要检查类的接口。

==============================
慢慢琢磨吧，技术水平就是在慢慢琢磨之中，在慢慢试验之中得到提升的。