Dim pwrite As New ProcessStartInfo
pwrite.FileName = "bcp"
pwrite.Arguments = """SELECT * FROM Mydb..Mytable where date < '2004-09-01'""" & _
  "queryout c:\2005.txt -c -Sprivat -Usa -Psa"""

stringpfad = BcpFileName 'c:\2005.txt
        strA = """SELECT * FROM Mydb..Mytable where date < '2004-09-01'" _
          queryout ""
        strE = "-c -Sprivat -Usa -Psa"""
        pwrite.Arguments = strA & stringpfad & strE
        Process.Start(pwrite)