Private Sub Form_Load()
  Me.Show
  Form_Willkommen.textfeld.SetFocus 'Warum?
  'Form_Willkommen.textfeld.Value = testeDBConnection() 'Warum?
  Dim sWillkommen as String
  sWillkommen = ImportData() & testeDBConnection()
 
  Debug.Assert Len(sWillkommen) > 0 'Test
 
  Form_Willkommen.textfeld.Value = sWillkommen 'Warum nicht gleich alles 
  ' schreiben?
  DoEvents 'bringt das was?
 
End Sub

Gruß
Dirk

--
?Get it right the first time