senza che apro un nuovo post, vi scrivo qui l'ultimo errore che ho con le funzioni.

vi riporto direttamente il codice:
codice:
Sub Page_Load(Src As Object, E As EventArgs) 
	if not page.IsPostBack then
		Dim objReader As OleDbDataReader
		dim ObjDatabase as new TYASPNET.Database()
			
		ObjDatabase.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; data source=" & Server.MapPath("../mdb-database/fg-tunisie.mdb")
			
		objReader = objDatabase.SelectSQL("SELECT * FROM Prodotti WHERE Codice='"& Request.QueryString("codice") &"' ")
		
		if not objReader is nothing then
			Codice.text = objReader("Codice") 
			Titolo.text = objReader("Titolo") 
			Prezzo.text = objReader("Prezzo") 
		        Image1.ImageUrl= "../image/"+objReader("img") 
		else
			lblmessage.text="ERRORE"
		end if				
	end if
End Sub

Vedete la parte in neretto? Quell'assegnazione non la posso fare.

Vi riporto sempre il codice della classe:
codice:
Public Class database
        Public ConnectionString As String
        Dim objConn As New OleDbConnection()
        Dim objCmd As New OleDbCommand()

        Public Function SelectSQL(ByVal strSelect As String) As OleDbDataReader          
            Try
                objConn = New OleDbConnection(ConnectionString)
                objCmd = New OleDbCommand(strSelect, objConn)
                objCmd.Connection.Open()
                Return objCmd.ExecuteReader
                objCmd.Connection.Close()
            Catch ex As OleDbException
                Return Nothing
            End Try
        End Function
.
.
.
????