Wellaz.....

trovata la soluzione alla mia domanda posto qui il codice per risolvere dovesse servire a qualcuno

Recupera Tutte il Nome delle Tabelle di un Db Access

%%%
Public Sub OpenDb()
Dim openFile As New System.Windows.Forms.OpenFileDialog
openFile.DefaultExt = "mdb"
openFile.Filter = "Access database (*.mdb)|*.mdb"
openFile.ShowDialog()

If openFile.FileNames.Length > 0 Then
Dim filename As String
filename = openFile.FileName
lbldb.Text = filename

Dim con As New OleDbConnection
Dim comand As New OleDbCommand


con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filename & ";Persist Security Info=False;"
comand = New OleDbCommand
con.Open()
comand.Connection = con
Dim schemaTable As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, Nothing, "TABLE"})
'Dim table As New DataTable
'table = con.GetOleDbSchemaTable(
con.Close()
DataGrid1.DataSource = schemaTable
For Each row In schemaTable.Rows
ComboBox1.Items.Add(row("Table_Name"))
Next
End If

End Sub

%%%


ciao a tutti