这是数据库的一个公共模块，进入系统共有个PASS窗体，用于输入用户名和密码
运行后，输入正确的用户名和密码，然后说：对象名“oper”无效
VB板块的朋友说是没有“oper”这个表，请问：系统用户的表是哪个表啊，它在哪里？？
谢谢！！



以下是模块代码：
Public userlevel As String       '保存用户级别
Public flag As Integer
Public flag1 As Integer
Public num As Integer
Public condstr As String
Public recs As Integer
Public recs1 As Integer
Public tna As String
Public cap As String

Sub main()            '主过程
   pass.Show vbModal
End Sub

Public Function exesql(ByVal sql As String) As ADODB.Recordset
   
  sql = Trim$(sql)
  Set conn = New ADODB.Connection
  Set rst = New ADODB.Recordset
  conn.ConnectionString = "provider=sqloledb;driver=(sql server);" + _
     "server=WWW-D4CC14DD61C;uid=sa;pwd=xywnhy2005;database=wudianchangyong"
  conn.Open
  Set rst.ActiveConnection = conn
  rst.CursorLocation = adUseClient
  rst.CursorType = adOpenDynamic
  rst.LockType = adLockOptimistic
  rst.Open sql                运行后指向了这里
  Set exesql = rst
  Set rst = Nothing
  Set conn = Nothing
  
End Function


Public Sub deldate(ByVal tn As String)      '删除指定表中所有记录，对oper表添加一个系统用户
  
  Dim sql As String
  sql = "delete" & Trim$(tn)
  Set conn = New ADODB.Connection
  conn.ConnectionString = "provider=sqloledb;driver=(sql server);" + _
     "server=WWW-D4CC14DD61C;uid=sa;pwd=xywnhy2005;database=wudianchangyong"
  conn.Open
  conn.Execute sql
  If Trim(tn) = "oper" Then
     sql = "insert oper values('1234','1234'.'系统管理员')"
     conn.Execute sql
  End If
  conn.Close
  
End Sub



以下是PASS窗体部分代码：
Private Sub Command1_Click()
   
   Dim mrc As ADODB.Recordset
   txtsql = "select * from oper where 用户名='" & _
      Trim$(Text1(0).Text) & "'" & "and 密码='" & Trim$(Text1(1).Text) + "'"
   Set mrc = exesql(txtsql)
   If mrc.RecordCount = 0 Then        '未找到用户记录
     n = n + 1
     If n < 3 Then
       MsgBox "没有这个用户，请确认登录信息后，继续尝试！", vbOKOnly + vbExclamation, "信息提示"
       Text1(0).Text = " "
       Text1(1).Text = " "
       Text1(0).SetFocus
     Else
       MsgBox "超过3次未成功登录，推出系统", vbOKOnly + vbExclamation, "信息提示"
       mrc.Close
       Unload Me
     End If
   
   Else
     userlevel = Trim(mrc.Fields("级别"))
     mrc.Close
     Unload Me
     menu.Show        '调用menu窗体
   End If
   
End Sub