Visual Basic

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 />

Me.Validate()
Me.PasswordBindingSource.EndEdit()
Me.PasswordTableAdapter.Update(Me.PasswordManagerDataSet1.Password)

System.Data.OleDb.OleDbException was unhandled<br />
  ErrorCode=-2147217900<br />
  Message="Syntax error (missing operator) in query expression 'USERID='Brad' PASSID='test'' AND HardwareID='BRAD-8EYRYEUOH4'."<br />
  Source="Microsoft JET Database Engine"

 Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim mypath = "C:\Temp\mydb.mdb"
    Dim mypassword = ""
    Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mypath & ";Jet OLEDB:Database Password=abc123" & mypassword)
    Dim cmd As OleDbCommand
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sql = "SELECT UserID ,PassID, HardwareID FROM MYTAB WHERE USERID='" & TextBox1.Text & "' PASSID='" & TextBox2.Text & "' AND HardwareID='" & TextBox3.Text

        cmd = New OleDbCommand(sql, conn)
        conn.Open()
        Dim dr As OleDbDataReader = cmd.ExecuteReader

        Try
            If dr.Read = False Then
                MessageBox.Show("Authentication failed...")
            Else
               MessageBox.Show("Login successfully...")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        conn.Close()

    End Sub