Code:

' Ovaj kod radi ali nije bezbedan po pitanju SQL Inekcije
' Znaci radi sa Accessom
' Ime baze db.mdb
            Dim conn As New OleDb.OleDbConnection           'Stores the connection to the Database 
            Dim dataSet As New DataSet                      'Stores information in-memory from the Database
            Dim dataAdapter As New OleDb.OleDbDataAdapter   'Executes SQL statements on the Database and updates dataSet
            Dim sql As String                               'Stores the sql string

            'Defines the connection string required for data access
            conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb"

            'Opens the connection to the database
            conn.Open()

            'The SQL query to execute on the Database AND SQL INJECTION  => IDText.Text 
            sql = "SELECT UserName,Password FROM Users WHERE UserID=" & IDText.Text & ""
            'MessageBox.Show(sql)

            'Initializes a new instance of the OleDbDataAdapter class with an SQL query on the connection
            dataAdapter = New OleDb.OleDbDataAdapter(sql, conn)

            'Fills the dataSet with data
            dataAdapter.Fill(dataSet, "Users")

            'Closes the connection to the database
            conn.Close()

            'Loops through the dataSet array and outputs the usernames in the listbox
            For i As Integer = 0 To dataSet.Tables("Users").Rows.Count - 1
                userNameListBox.Items.Add(dataSet.Tables("Users").Rows(i).Item("Username"))
                userNameListBox.Items.Add(dataSet.Tables("Users").Rows(i).Item("Password"))
            Next