[RESOLVED] [2005] CheckedListBox

[tylerm]

I have a checkedlistbox on my form and a list of items that correpsond to column names in my MSSQL table.

When I load the data from the MSSQL table, I'm trying to get it to check a specific item if the value of the row is 1.

Here is what I'm using, but it throws and error on For each:

For Each item As CheckBox In chkListPermissions.Items
                    If item.Text = "ViewServerList" Then
                        If dr("ViewServerList") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ViewConsole" Then
                        If dr("ViewConsole") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ViewLogs" Then
                        If dr("ViewLogs") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ViewCharts" Then
                        If dr("ViewCharts") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ViewRemoteUsers" Then
                        If dr("ViewRemoteUsers") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ControlStart" Then
                        If dr("ControlStart") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    ElseIf item.Text = "ControlStop" Then
                        If dr("ControlStop") = 1 Then
                            item.Checked = True
                        Else
                            item.Checked = False
                        End If
                    End If
                Next