我做了密码修改密码from:代码如下:
Dim zhuece As ADODB.Connection
Dim rrr As ADODB.Recordset

Private Sub Command2_Click()
If Trim(Text1.Text) <> Trim(Text3.Text) Then
MsgBox "密码不一样哈!", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text3.Text = ""
Else
sql = "select *from 用户where 用户名=‘" & Text2.Text & " ' and 密码=' " & Text1.Text & "';"
rrr.Open sql, zhuece, adOpenKeyset, adLockOptimistic
rrr.Fields(1) = Text1.Text
rrr.Update
rrr.Close
MsgBox "修改成功！！", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub
Unload Me
end sub

Private Sub Form_Load()
Set zhuece = New ADODB.Connection
zhuece.CursorLocation = adUseClient
zhuece.Open "provider=microsoft.jet.oledb.4.0;data source=D:\db1.mdb"
Set rrr = New ADODB.Recordset
Set rrr.ActiveConnection = zhuece
rrr.Open "select * from 用户", zhuece, adOpenStatic, adLockBatchOptimistic
End Sub
为什么通不过编译哦??那有错误希望帮我改一 下.
万分谢谢!!!!<注text2是用户名,text1和text3是密码>框

command2是确认按钮
sql as string <我发的时候有错误>

sql里.好像有一个中文的单引号...
....如果不是...那提示什么错误?..

上面提示:时事错误"3705" 对象打开时,不允许操作
谢谢斑竹!!

这样试试..

Dim zhuece As ADODB.Connection
Dim rrr As ADODB.Recordset

Private Sub Command2_Click()
If Trim(Text1.Text) <> Trim(Text3.Text) Then
MsgBox "密码不一样哈!", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text3.Text = ""
Else
sql = "select *from 用户where 用户名=‘" & Text2.Text & " ' and 密码=' " & Text1.Text & "';"
if rrr.State=adStateOpen then rrr.Close
rrr.Open sql, zhuece, adOpenKeyset, adLockOptimistic
rrr.Fields(1) = Text1.Text
rrr.Update
rrr.Close
MsgBox "修改成功！！", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub
Unload Me
end sub

Private Sub Form_Load()
Set zhuece = New ADODB.Connection
zhuece.CursorLocation = adUseClient
zhuece.Open "provider=microsoft.jet.oledb.4.0;data source=D:\db1.mdb"
Set rrr = New ADODB.Recordset
Set rrr.ActiveConnection = zhuece
rrr.Open "select * from 用户", zhuece, adOpenStatic, adLockBatchOptimistic
End Sub

谢谢斑竹!!!
还是错误,是不是没有连接到表啊?

怎么连结到数据库中的表?

sql = "select *from 用户where 用户名=‘" & Text2.Text & " ' and 密码=' " & Text1.Text & "';"
rrr.Open sql, zhuece, adOpenKeyset, adLockOptimistic
这不是你连接的表吗?
你还是把程序打包上来看看吧

呵呵
谢谢!!
我我做得太臭了
就不了

我知道是为什么了
microsoft.jet.oledb.4.0只能支持2002以下的access
我是2003的
谢谢帮忙