END goal:
Read in the value of DETENTION_OVERRIDE_01 from database, if Det01 = "True" then place a check in the appropriate checkbox.
Using the following code, even though Det01 comes back properly (shows as being True), the Case Select shows it as false and no check is entered. What am I missing?
Code:Private Sub Detention01()
Dim cmd As New SqlCommand
Dim reader As SqlDataReader
Try
cmd.CommandText = "SELECT DETENTION_OVERRIDE_01
FROM
LOAD_INFO_TABLE
WHERE
PETS_LOAD_NUMBER= '" & tbPETSLoadNumber.Text & "'"
cmd.CommandType = CommandType.Text
cmd.Connection = New SqlConnection()
cmd.Connection.ConnectionString = My.MySettings.Default.PETS_DatabaseConnectionString
cmd.Connection.Open()
Try
reader = cmd.ExecuteReader()
Dim Det01 As String
With reader
.Read()
Det01 = .GetString(0)
Select Case True
Case Det01 = "True"
ccb01DetOverride.Checked = True
Case Else
ccb01DetOverride.Checked = False
End Select
Return
End With
reader.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
cmd.Connection.Close()
Detention90()
End Sub

