在VB.NET中显示Access数据库中未经检查的记录

Question

I am creating a VB.NET application that is supposed to work with my Access database. I have created and imported a Microsoft Access 2010 database (.accdb) into VB.NET and made one of the tables to display on my form. On form 1 I have a button which links to form 2, on which the database table is displayed.

What I want to do is generate some kind of IF statement to say if a particular field in a record is unchecked than display it in a list-box on FORM 1.

For example I have a filed called "started" and its data type is Yes/No . When a particular record is not checked (empty check-box) I want it to display in a list box on form 1.

Could someone advise me if this is possible and how I could go around doing this?

EDIT: After trying a few things out, here is what I have so far. The table 'Jobs' is being highlighted as not declared ('Jobs' is not declared. It may be inaccessible due to its protection level.) and I can't figure out how to do this, as the database is connected.

 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstTostart.SelectedIndexChanged
    Dim Started, SQLString As String
    Dim ConnectString As String = "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source = KNmidlands_db.accdb"
    SQLString = "SELECT *  FROM Jobs WHERE Started = 0"  '--> 1 = Yes / 0 = No
    If Jobs.Rows.Count > 0 Then

        For x As Integer = 0 To Jobs.Rows.Count - 1

            lstTostart.Items.Add(Jobs.Rows(x).Item("whatever"))

        Next

    End If
End Sub

Thanks Aleksander

Answer 1

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Me.OleDbDataAdapter1.Fill(Me.DataSet11.Jobs)
    Fill_List()
End Sub

Sub Fill_List()
    Dim ConnectString As String = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = kn.accdb"
    Dim con As New OleDbConnection(ConnectString)
    Dim da As OleDb.OleDbDataAdapter
    Dim dt As New DataTable

    con.Open()
    da = New OleDb.OleDbDataAdapter("SELECT *  FROM Jobs WHERE NOT Started = true", con)
    da.Fill(dt)

    MsgBox(Format(dt.Rows.Count))

    If dt.Rows.Count > 0 Then

        For x As Integer = 0 To dt.Rows.Count - 1

            ListBox1.Items.Add(dt.Rows(x).Item("Job ID"))

        Next

    End If
    con.Close()
End Sub

End Class