Creare un DataSey

    Public Function GetDataSetFromQuery(ByVal query As String, ByVal ConnString As String)
        ' creo oggetto connection
        Dim m_cnADONewConnection As OleDbConnection = New OleDbConnection(ConnString)
        ' apro la connessione
        m_cnADONewConnection.Open()

        ' creo il command
        Dim commandDB As OleDbCommand = New OleDbCommand(query, m_cnADONewConnection)

        Dim da As New OleDbDataAdapter(commandDB)

        Dim ds As New DataSet

        ' riempio il dataset
        da.Fill(ds)

        ' restituisco il dataset
        Return ds

    End Function