conn.Open();
SqlCommand cmd = new SqlCommand();
cmd.Connection = conn;
cmd.CommandText = "select name from Msysobjects where type =6"
cmd.ExecuteReader()
Dim connacc As New OleDbConnection
connacc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & OpenFileDialog1.FileName
Button6.Text = OpenFileDialog1.FileName
Try
connacc.Open()
Dim lbn As DataTable
Dim res As Object
lbn = connacc.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, res)
DataGridView1.DataSource = lbn
Catch ex As Exception
TextBox1.Text = ex.ToString
Finally
connacc.Close()
connacc.Dispose()