Dim builder As New OleDbConnectionStringBuilder() builder.Provider = "Microsoft.ACE.OLEDB.12.0" builder.DataSource = "C:\…\Database1.accdb" 'builder("User ID") = … 'builder("Password") = … 'builder("Jet OLEDB:Database Password") = … Using cn As New OleDbConnection(builder.ConnectionString) Dim restrictions(3) As String restrictions(3) = "TABLE" cn.Open() DataGridView1.DataSource = cn.GetSchema("Tables", restrictions) cn.Close() End Using