Private Sub InitAdressen()
        Dim Time As Date = Now
 
        Debug.WriteLine("InitAdressen Beginn")
        lstAdressen.DisplayMember = "ADR"
        lstAdressen.ValueMember = "LFDNR"
        lstAdressen.DataSource = Createdt("ADR") '(1)
        Debug.WriteLine("InitAdressen Ende: " & Now.Subtract( _
          Time).Seconds.ToString("00") & ":" & Now.Subtract( _
          Time).Milliseconds.ToString("000"))
    End Sub

    Private Function Createdt(ByVal SQLString As String) As DataTable
        Dim dt As DataTable
        Dim Time As Date = Now
        Debug.WriteLine("Createdt ADR Beginn")
        dt = cDataBase.CreateDataTable(SQLString)
        Debug.WriteLine("Createdt ADR Ende: " & Now.Subtract( _
          Time).Seconds.ToString("00") & ":" & Now.Subtract( _
          Time).Milliseconds.ToString("000"))
        Return dt
    End Function

InitAdressen Beginn
Createdt ADR Beginn
Createdt ADR Ende: 03:984
InitAdressen Ende: 13:203