Public Sub TestConnection(pth As String)
    Dim cnt As New ADODB.Connection, rs As New ADODB.Recordset
    
    cnt.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
        "DBQ=" & pth & ";" & _
        "Extended Properties=text;" & _
        "HDR=YES;" & _
        "FMT=FixedLength"
            
    With rs
        .CursorLocation = adUseClient
        .Open "SELECT top 30 A.[ObjName], A.[ObjType], A.[ControlName], A.[ControlType], A.[TextType], " & _
                "A.[AmpersandPos], A.[Width], A.[Height], A.[FontSize], A.[FontWeight], A.[LabelAlign], " & _
                "A.[LWidth], A.[LHeight], A.[LFontSize], A.[LFontWeight], A.[LLabelAlign], " & _
                "A.[Text] " & vbCrLf & _
                "FROM AllTexts.csv As A OUTER JOIN Dutch.csv As L ON A.TextID = A.ID " & vbCrLf & _
                "WHERE A.[ObjType] <> '2'", cnt, adOpenKeyset, adLockReadOnly, - 1 
                
        Set .ActiveConnection = Nothing
    
        While Not .EOF
            Debug.Print !Text
        
            .MoveNext
        Wend
        
    End With
            
     
    Set rs = Nothing
    Set cnt = Nothing


End Sub