Private Sub Form_Willkommen_Load()
  Form_Willkommen.TimerInterval = 10 '10ms
End Sub
 
Private Sub Form_Willkommen_Timer()
 
  Static iGuard As Integer
 
  If iGuard = 0 Then
 
    Form_Willkommen.TimerInterval = 30000
    Form_Willkommen.textfeld.SetFocus
    Form_Willkommen.textfeld.Value = testeDBConnection()
    Form_Willkommen.textfeld.Value = ImportData() & _
      Form_Willkommen.textfeld.Value
 
    iGuard = 1
  End If
 
 
End Sub

Gruß
Dirk

--
?Get it right the first time