Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs_add As New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "警告！"
Me.Text1.SetFocus
Exit Sub
End If
sql = "select * from 系统管理"
rs_add.Open sql, conn, adpenkeyset, adLockPessimistic
While (rs_add.EOF = False)
   If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then
    MsgBox "已经有这个用户了！", vbOKOnly + vbexclamatin, ""
   
    Text1.Text = ""
    Text1.SetFocus
    Exit Sub
   Else
    rs_add.MoveNext
   End If
Wend
If Trim(Text2.Text) = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告！"
Me.Text2.SetFocus
Exit Sub
End If
If Trim(Me.Text2) <> Trim(Me.Text3) Then
MsgBox "两次密码不一致！", vbOKOnly + vbExclamation, "警告！"
Me.Text2 = ""
Me.Text3 = ""
Me.Text2.SetFocus
Exit Sub
End If
rs_add.AddNew
rs_add.Fields(0) = Trim(Me.Text1)
rs_add.Fields(1) = Trim(Me.Text2)
rs_add.Update
rs_add.Close
End Sub
实时错误
连接无法用于此操作，在此上下文中它可能被关闭或无效
打开文件在启动窗口中呢！

[[italic] 本帖最后由 wwhhjj 于 2007-12-6 10:54 编辑 [/italic]]

第一眼看到的就是你的conn没有打开.

Private Sub Command1_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
   MsgBox "用户名不能为空", vbOKOnly + vbExclamation, ""
   Text1.SetFocus
   Exit Sub
  
Else
   sql = "select * from 系统管理"
   rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
   While (rs_add.EOF = False)
        If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then
           MsgBox "已有这个用户", vbOKOnly + vbExclamation, ""
           Text1.SetFocus
           Text1.Text = ""
           Text2.Text = ""
           Text3.Text = ""
           Combo1.Text = ""
           Exit Sub
         Else
           rs_add.MoveNext
         End If
    Wend
     If Trim(Text2.Text) = "" Then
         MsgBox "密码不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"
         Text2.Text = ""
         Text2.SetFocus
         Exit Sub
    End If
   
    If Trim(Text2.Text) <> Trim(Text3.Text) Then
       MsgBox "两次密码不一致", vbOKOnly + vbExclamation, ""
       Text2.SetFocus
       Text2.Text = ""
       Text3.Text = ""
       Exit Sub
    ElseIf Trim(Combo1.Text) <> "system" And Trim(Combo1.Text) <> "guest" Then
       MsgBox "请选择正确的用户权限", vbOKOnly + vbExclamation, ""
       Combo1.SetFocus
       Combo1.Text = ""
       Exit Sub
    Else
       rs_add.AddNew
       rs_add.Fields(0) = Text1.Text
       rs_add.Fields(1) = Text2.Text
       rs_add.Update
       rs_add.Close
       MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
       Unload Me
    End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
这段程序就可以

自问自答?

1111111111

那你3楼又说可以?..

我始终没看到你的Connection

问题解决,谢谢!