Private DB As Database
Private Rs As Recordset
 
Private Sub Form_Load()
Dim TelNr As String
 
  Set DB = DBEngine.OpenDatabase("c:\test.xls", _
    False, False, "Excel 8.0;")
 
  Set Rs = DB.OpenRecordset("Register aktuell$", dbOpenDynaset)
 
 
Rs.MoveFirst
 
TelNr = Rs("Tel")
 
MsgBox UserName
 
 
End
 
End Sub