ok provo a farmi capire un po' meglio
Questo è il codice della classe che interagisce con il database (ridotta al minimo ovviamente)

Imports System
Imports System.Data
Imports System.Data.OleDb

Namespace ASPNETAccess
Public Class dbAccess
private ConnectionString as string = System.Configuration.ConfigurationSettings.AppSett ings("connectionString")
private objConn as OleDbConnection
private objCmd as OleDbCommand
private objReader as OleDbDataReader

public function SelezionaValore(stringa as string) As String
try
objReader = SelectSQL(stringa)
While objReader.Read()
return objReader("campodaselezionare")
End While
objReader.Close()
catch ex as OleDbException
return ""
end try
End Function
End Class
End Namespace


e all'interno della classe che racchiude tutte le funzioni generiche utilizzo il metodo SelezionaValore

Imports System
Imports Microsoft.VisualBasic
Imports ASPNETAccess

Namespace ASPNETGenerali
Public Class Generali
shared public Function ControllaCategorie(valoreId as object) As string
IF VarType(valoreId) = VariantType.Null THEN
return "Non Presente"
ELSE
Dim strSelect as string = "SELECT nomecategoria FROM tbcategoriamerceologica WHERE id = "& CINT(valoreId) &""
dim objSelect = new dbAccess
dim ritorna as string
ritorna = objSelect.SelezionaValore(strSelect,"nomecategoria ")
return ritorna
END IF
END Function

End Class
End Namespace