SQL = "SELECT * from FTP.dbo.FTP_Jobs order by Datum"
Dim SDR As SqlDataReader = New SqlCommand(SQL, Connection).ExecuteReader
Do While sdr.Read
   Servername = SDR("Servername") 'ist nur die IP oder die Domain
   If InStr(1, Servername, "ftp://", CompareMethod.Text) = 0 Then
      Servername = "ftp://" & Servername
   End If
   'Dateinamen an den Servernamen anhängen
   Servername = Servername & "/" & SDR("Filename").ToString.Substring(SDR( _
     "Filename").ToString.LastIndexOf("\") + 1, SDR("Filename").ToString.Length _
     - SDR("Filename").ToString.LastIndexOf("\") - 1)
    Try
       My.Computer.Network.UploadFile(SDR("FileName"), Servername, SDR( _
         "Username"), SDR("Password"))
    Catch ex As Exception
       msgbox(ex.Message)
    End Try
    ProgressBar1.Value = ProgressBar1.Value + 1 : My.Application.DoEvents()
Loop
SDR.Close()

Der Remoteserver hat einen Fehler zurückgegeben: (500) Syntaxfehler, Befehl _
  nicht erkannt.

Joachim