'restituisce un oggetto dataset già caricato in base alla stringa
'di sqldataAdapter che gli viene passata
Public Function GetData(ByVal stringa As String) As DataSet

Dim sqlConnection1 As New SqlConnection(string_conn)
Dim sqlAdapter1 As New SqlDataAdapter(stringa, sqlConnection1)
Dim tabella As New DataSet()
sqlAdapter1.Fill(tabella)
GetData = tabella
sqlConnection1.Close()

end function

koning