Grazie per l'indicazione provo a leggere l'articolo che mi hai indicato.
Infatti ho provato ad utizzare questo metodo però ricevo tutte le tabelle del db.
Dim MyConnection2 As OleDbConnection
MyConnection2 = New OleDbConnection("Provider=SQLOLEDB; Data Source=server00;Initial Catalog=CE;User ID=user;Password=psw")
MyConnection2.Open()
Dim myCommand2 As New OleDbDataAdapter("SELECT TbIdRicorso.IdRicorso, TbIdRicorso.IdProtDocway, TabAutGiudiziaria.DescAutGiud, TbIdRicorso.NominativoRicorrente, TbIdRicorso.CFRicorrente, TabTipoAtto.DescrTipoAtto, TbIdRicorso.CompTerritoriale, TbIdRicorso.ValoreControversia, TabStatoLavorazione.DescrStatoLav FROM [ContenziosoEsattoriale].[dbo].[TabAutGiudiziaria] INNER JOIN [ContenziosoEsattoriale].[dbo].[TbIdRicorso] ON [ContenziosoEsattoriale].[dbo].[TabAutGiudiziaria].[IdAutGiud] = [ContenziosoEsattoriale].[dbo].[TbIdRicorso].[IdAutGiud] INNER JOIN [ContenziosoEsattoriale].[dbo].[TbLavorazioniRicorso] ON [ContenziosoEsattoriale].[dbo].[TbIdRicorso].[IdRicorso] = [ContenziosoEsattoriale].[dbo].[TbLavorazioniRicorso].[IdRicorso] INNER JOIN [ContenziosoEsattoriale].[dbo].[TabTipoAtto] ON [ContenziosoEsattoriale].[dbo].[TbIdRicorso].[IdTipoAtto] = [ContenziosoEsattoriale].[dbo].[TabTipoAtto].[IdTipoAtto] INNER JOIN [ContenziosoEsattoriale].[dbo].[TabStatoLavorazione] ON [ContenziosoEsattoriale].[dbo].[TbLavorazioniRicorso].[IdStatoLav] = [ContenziosoEsattoriale].[dbo].[TabStatoLavorazione].[IdStatoLav] WHERE ([ContenziosoEsattoriale].[dbo].[TbLavorazioniRicorso].[IdStatoLav] = 1) AND ([ContenziosoEsattoriale].[dbo].[TbLavorazioniRicorso].[IdLavorazione] = 1) AND [ContenziosoEsattoriale].[dbo].[TbLavorazioniRicorso].[IdUtente] =" & "'" & str_Utente & "'" & " AND [ContenziosoEsattoriale].[dbo].[TbLavorazioniRicorso].[DtChiusura] IS NULL", MyConnection2)
nomekey = myCommand2.SelectCommand.CommandText()
Dim schemaTable As DataTable
Dim i As Integer
schemaTable = MyConnection2.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
Me.cmbTable.Items.Clear()
For i = 0 To schemaTable.Rows.Count - 1
'Console.WriteLine(schemaTable.Rows(i)!TABLE_NAME.ToString)
Me.cmbTable.Items.Add(schemaTable.Rows(i)!TABLE_NAME.ToString)
Next i
Me.cmbTable.SelectedIndex = 0
Console.ReadLine()
Ti faccio sapere.
