Dim da As New OleDbDataAdapter Dim ds As New DataSet Dim strsql As String = "SELECT Collegamento, Titolo,codice,url,TARGET,images FROM MENU Where codicepadre='" + CStr(codicePadre) + "' ORDER BY Codice" da = New OleDbDataAdapter(strsql, objdb) da.Fill(ds, "menu") Dim dtable As DataTable = ds.Tables("menu")