_Cn = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                "Data Source=" & _Location & ";" & _
                                "Extended Properties=DBASE IV;")
 
_Da = New Data.OleDb.OleDbDataAdapter("SELECT * FROM " & _Tablename, _Cn)
_Cn.Open()
_Dt = New DataTable(_Tablename)
_Da.FillLoadOption = LoadOption.OverwriteChanges
_Da.Fill(_Dt)
_Da.FillSchema(_Dt, SchemaType.Source)
DatabaseTable.DataSource = _Dt
_Cn.Close()