I changed it to this and now it works
Code:
Private Sub Form_Load()
If Credentials.AccessLvlID = 1 Then
Me.cboReports.RowSource = "SELECT [MSysObjects].[Name] FROM MsysObjects WHERE (Left$([Name],1)<>'~') And ([MSysObjects].[Type])=-32764 ORDER BY [MSysObjects].[Name];"
Else
Me.cboReports.RowSource = "SELECT MsysObjects.Name FROM MsysObjects WHERE (((Left([Name],5))<>'Admin') AND ((MsysObjects.Type)=-32764)) ORDER BY MsysObjects.Name DESC;"
End If
End Sub