Dim Con_BarCode = New ADODB.Connection
With Con_BarCode
  .ConnectionString = _
  "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
  "DBQ=" & strXlsPfad & strXlsDatei & ";ReadOnly=True;"
  .Open()
End With