Private Sub Form_Load()
Dim DB As Database
Dim RS As DAO.Recordset
 
Set DB = DBEngine.OpenDatabase("\\au000ea001w2k\c$\esap 2.0\dat\db.mdb")
Set RS = DB.OpenRecordset("SELECT * FROM t_Result")
 
 
End Sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)