在VB.Net中将函数合并为一条语句

Question

我正在制作一个学生档案系统，我有一个VB表单，从MySQL检索数据复选框，当有"1"在列上，复选框打勾。

我在每个复选框上执行下面的函数和查询。是否有任何方法将其合并为一个查询?

Sub CheckboxAccess1()
Using con As New MySqlConnection(str)
Try
con.Open()
Dim sql As String = "SELECT access1 FROM tblusers WHERE userid = @userid AND access1 LIKE '1'"
com = New MySqlCommand(sql, con)
com.Parameters.AddWithValue("userID", TextBox2.Text)
Dim reader As MySqlDataReader
reader = com.ExecuteReader
If reader.Read() Then
CheckBox2.Checked = True
Else
CheckBox2.Checked = False
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
Finally
con.Dispose()
End Try
End Using
End Sub
Sub CheckboxAccess2()
Using con As New MySqlConnection(str)
Try
con.Open()
Dim sql As String = "SELECT access2 FROM tblusers WHERE userid = @userid AND access2 LIKE '1'"
com = New MySqlCommand(sql, con)
com.Parameters.AddWithValue("userID", TextBox2.Text)
Dim reader As MySqlDataReader
reader = com.ExecuteReader
If reader.Read() Then
CheckBox3.Checked = True
Else
CheckBox3.Checked = False
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
Finally
con.Dispose()
End Try
End Using
End Sub

Answer 1

Sub CheckboxAccess()
Using con As New MySqlConnection(str)
Try
con.Open()
Dim sql As String = "SELECT access1, access2 FROM tblusers WHERE userid = @userid"
com = New MySqlCommand(sql, con)
com.Parameters.AddWithValue("userID", TextBox2.Text)
Dim reader As MySqlDataReader
reader = com.ExecuteReader
reader.Read()
CheckBox2.Checked = (reader.GetString("access1") = "1")
CheckBox3.Checked = (reader.GetString("access2") = "1")
Catch ex As Exception
MessageBox.Show(ex.ToString)
Finally
con.Dispose()
End Try
End Using
End Sub