是不是因为Str3中密码没有填写，如果本就没有密码，就看看 把 strSQL = "select * from wzdz where 编号=" & Val(Text4.Text) & ""改成 strSQL = "select * from wzdz where 编号='" & Val(Text4.Text) & "'"在编号后面加个单引号。
你可以试着将“编号”改成“ID”
