Private Function RicMenu(ByVal RiferimentoPagina As String, ByVal RiferimentoLingua As String) As DataTableCollection

        Dim da As New OleDbDataAdapter

        Dim ds As New DataSet

        Try

            Dim strsql As String = "SELECT Collegamento, Titolo, css  FROM MENU1 Where codicevisualizzazione=1 ORDER BY Codice"

            da = New OleDbDataAdapter(strsql, objdb2)

            da.Fill(ds, "menu1")

        Catch ex As Exception

        End Try

        Return ds.Tables

    End Function