Public Function GetConnStr() As String
GetConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & "User ID=sa;Password=;Initial Catalog=进销存管理系统;Data Source=WWW-3E9D3B44423"

End Function  



Private Sub MDIForm_Load()
  Dim rst As ADODB.Recordset
  Dim SQL As String
  Dim msg As String
  Dim rights As String
  SQL = "select  权限 from 用户信息表 where 用户 ID=' " & UserID & "'"
  Set rst = SelectSQL(SQL, msg)
  If rst.RecordCount > 0 Then
   rights = Trim(rst.Fields(0))
   rst.Close
   Else
   MsgBox ("没有用户信息!")
   Exit Sub
   End If
   If InStr(rights, "资料管理") Then
    资料管理.Enabled = True
    Me.Toolbar1.Buttons(1).Enabled = True
    Me.Toolbar1.Buttons(2).Enabled = True
    Me.Toolbar1.Buttons(3).Enabled = True
    Else
    资料管理.Enabled = False
    Me.Toolbar1.Buttons(1).Enabled = False
    Me.Toolbar1.Buttons(2).Enabled = False
    Me.Toolbar1.Buttons(3).Enabled = False
    End If
  If InStr(rights, "采购管理") Then
     采购管理.Enabled = True
     Me.Toolbar1.Buttons(4).Enabled = True
     Me.Toolbar1.Buttons(5).Enabled = True
     Else
     采购管理.Enabled = False
     Me.Toolbar1.Buttons(4).Enabled = False
     Me.Toolbar1.Buttons(5).Enabled = False
 End If
 If InStr(rights, "销售管理") Then
     销售管理.Enabled = True
     Me.Toolbar1.Buttons(6).Enabled = True
     Me.Toolbar1.Buttons(7).Enabled = True
    Else
    销售管理.Enabled = False
    Me.Toolbar1.Buttons(6).Enabled = False
     Me.Toolbar1.Buttons(7).Enabled = False
End If
End Sub



If rst.RecordCount > 0 Then   运行到这句就提示错误91,说是对象变量未设置