Public Class cWriteFile
    Dim conn As New cConnections(pb, lb)
    Dim defDir As String, selCmd As String
    ...
    Private Function ContainerHeader()        'auch hier fehlt etwas - "As ???"
        defDir = lw & "ML;"
        selCmd = "Select * From SOFTDAT"
        Dim _dtSoft As New DataTable
        _dtSoft = conn.GetTable(defDir, selCmd)    'FEHLER !
    End Function
 
Public Class cConnections
    ...    
    Public Function GetTable(ByVal sDir As String, ByVal sSel As String)
        ...
        Dim sCon As String
        sCon = "FILEDSN=c:\ml\ml_dbase;DefaultDir=" & sDir
        Dim _conn As New OdbcConnection(sCon)
        Dim _da As New OdbcDataAdapter(sSel, _conn)
        Dim _dt As New DataTable
        Dim d As New fillDelegate(AddressOf fill)
        Dim iar As IAsyncResult = d.BeginInvoke(_da, _dt, Nothing, Nothing)
        Dim i As Integer = 1
        While Not iar.IsCompleted
            System.Threading.Thread.Sleep(2)
            i += 1
            If i > _pb.Maximum Then i = 1
            _pb.Value = i
        End While
        d.EndInvoke(iar)
        _conn.Close()
        Return _dt
    End Function