aiutino su chiamata di funzione

[Daniele80]

ho risolto almeno credo l'errore che vi ho postato in precedenza però ora ne ho un'altro e mi risulta molto strano visto che lo stesso codicelo utilizzo in un'altra pagina e funziona correttamente.

nella pagine login.aspx:

dim ObjDatabase as new TYASPNET.database()
		
	ObjDatabase.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; data source=" & Server.MapPath("mdb-database/fg-tunisie.mdb")
	
	Dim objReader As OleDbDataReader
	
	objReader = objDatabase.SelectSQL("SELECT id FROM Admin WHERE Nome='"& ObjDatabase.Controlla_Stringa(Nome.text) &"' AND Pwd='"& ObjDatabase.Controlla_Stringa(Pwd.Text) &"' ")
	
	if not objReader is nothing then

nella pagina insert.aspx dove non funziona:

Sub Carica_Menu(Sender As Object, E As EventArgs)
  dim ObjDatabase as new TYASPNET.database()
	
  ObjDatabase.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; data source=" & Server.MapPath("mdb-database/fg-tunisie.mdb")
		
  Dim objReader As OleDbDataReader
		
  objReader = objDatabase.SelectSQL("SELECT Menu FROM Menu WHERE Cat='"& Disciplina.items(Disciplina.SelectedIndex).Value &"' ")	
			
  if not objReader is nothing then
	'valore della dropdown list
	Categoria.DataValueField = "Menu" 
	'testo della dropdown list 
	Categoria.DataTextField = "Menu" 
	'esecuzione della query 
	Categoria.DataSource = objReader
	Categoria.DataBind()
  else
	lblmessage.text="ERRORE NELLA QUERY"
  end if
End Sub

mi va sempre nella parte else. Cosa può essere?