Visual Basic

<br />
sql = "UPDATE table1 SET Descript = @Desc "<br />
sql += "WHERE RefNum = @RefNum "<br />
<br />
cmd.CommandText = sql<br />
<br />
parm = New OdbcParameter("@desc", SqlDbType.Char, 120)<br />
parm.Value = oRow.Item("description").ToString().Trim()                    <br />
cmd.Parameters.Add(parm)<br />
<br />
parm = New OdbcParameter("@refnum", SqlDbType.Char, 12)<br />
parm.Value = oRow.Item("ref num").ToString().Trim()<br />
cmd.Parameters.Add(parm)<br />
<br />
cmd.ExecuteNonQuery()               'This fails with Syntax Error<br />

Public Function GetFolderList(ByVal ftppath As String) As List(Of String)
    Dim folderlist As New List(Of String)
    'Try
    Dim result As New System.Text.StringBuilder()
    Dim reqFTP As FtpWebRequest
    reqFTP = DirectCast(FtpWebRequest.Create(New Uri(ftppath & "/")), FtpWebRequest)
    reqFTP.UseBinary = True
    reqFTP.KeepAlive = False
    reqFTP.Credentials = New NetworkCredential(ftpuser, ftppass)
    reqFTP.Method = WebRequestMethods.Ftp.ListDirectory
    Dim response As WebResponse = reqFTP.GetResponse() ' THIS IS WHERE THE ERROR HAPPENS
    Dim reader As New StreamReader(response.GetResponseStream())
    'MessageBox.Show(reader.ReadToEnd());
    Dim line As String = reader.ReadLine()
    While line IsNot Nothing
        result.Append(line)
        result.Append("" & Chr(10) & "")
        line = reader.ReadLine()
    End While
    result.Remove(result.ToString().LastIndexOf(Chr(10)), 1)
    Dim sall As String() = result.ToString.Split(Chr(10))
    For Each s As String In sall
        If Not s.Contains(".") Then
            folderlist.Add(s)
        End If
    Next
    reader.Close()
    response.Close()
    Return folderlist 'result.ToString().Split(Chr(10))
    'Catch ex As Exception
    'End Try
    Return folderlist
End Function

<br />
Private Sub frmCsv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
Dim file As String = "steelandt.csv"<br />
        Dim pad As String = "C:\"<br />
        Dim dataset As New DataSet<br />
<br />
        Try<br />
            Dim bestand As System.IO.File<br />
            If bestand.Exists(pad & file) Then<br />
                Dim ConStr As String = _<br />
                "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _<br />
                pad & ";Extended Properties=""Text;HDR=Yes;FMT=Delimited\"""<br />
                Dim conn As New OleDb.OleDbConnection(ConStr)<br />
                Dim databaseAdapter As New OleDb.OleDbDataAdapter("Select [PO],[Item],[Due Date],[Item Description] from " & _<br />
                file + " WHERE PO>0 order by PO ASC", conn)<br />
                databaseAdapter.Fill(dataset)<br />
            End If<br />
<br />
            <br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.ToString)<br />
        End Try<br />
<br />
        DataGrid.DataSource = dataset.Tables(0)<br />
<br />