Private Sub Timer1_Timer()
MsgBox "test!"
End Sub

Public Function dbopen(FileName as string, Rst as String)
Dim Db As Database
Dim Tabelle As Recordset
Dim dbFile As String
 
dbFile = App.Path + FileName
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = Db.OpenRecordset(Rst)
 
 xpCombo1.ItemsClear
 Tabelle.MoveFirst
  Do Until Tabelle.EOF
    xpCombo1.ItemsAdd Tabelle!URL
    Tabelle.MoveNext
  Loop

Form1.dbopen("c:\test.mdb", "Data")

.
.
.
dbopen("c:\test.mdb", "Data")
unload me
form1.show
.
.
.

-----------------------------------------------
?ber einen GB eintrag freue ich mich immer
http://www.Cabcom13.de =)