Private Sub Form_Load()
 
dbFile = App.Path + "\Video.MDB"
Set DB = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle1 = DB.OpenRecordset("Videos")
 
Set DB1 = New ADODB.Connection
Set Rs1 = New ADODB.Recordset
 
DB1.CursorLocation = adUseClient
DB1.Provider = "Microsoft.Jet.OLEDB.4.0"
DB1.Open dbFile
 
Rs1.Open "SELECT * FROM Videos", DB1, adOpenDynamic, adLockOptimistic
 
Set DataGrid1.DataSource = Rs1
 
 
End Sub