Problemas con Checkbox y Base de datos

[Javier_K81]

Buenas tardes:
Tengo TRES problemas:
1. Tengo un formulario que realiza una búsqueda en una base de datos y me devuelve el valor de unos campos (Nombre, Cédula, Semana, Cabaña 1, Cabaña 2 y Cabaña 3) Cabaña 1, 2 y 3 son de tipo checkbox.
Cuándo busco las reservas en la semana "x" en la cuál hay reservas de diferente cliente (Cabaña 1 y 3) sólo me muestra un checkbox chequeado.
Cuándo busco las reservas en la semana "x" en la cuál no hay reservas, me muestra la Cabaña 3 chequeada.
Cómo hago para que cuándo haga consulta de la semana con 2 o 3 reservas me muestre las 2 o 3 cabañas chequeadas y cuando haga consulta de una semana sin reservas me muestre los checkbox en blanco?
CÓDIGO:
Public Class Disponible
Private Sub ReservaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.ReservaBindingSource.EndEdit()
Me.ReservaTableAdapter.Update(Me.Inventario_Reserv asDataSet.Reserva)
End Sub
Private Sub Disponibilidad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Cabaña_1TableAdapter.Fill(Me.Inventario_Reserva sDataSet.Cabaña_1)
Me.Cabaña_2TableAdapter.Fill(Me.Inventario_Reserva sDataSet.Cabaña_2)
Me.Cabaña_3TableAdapter.Fill(Me.Inventario_Reserva sDataSet.Cabaña_3)
Me.CenterToScreen()
Me.ReservaTableAdapter.Fill(Me.Inventario_Reservas DataSet.Reserva)
End Sub
Private Sub Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar.Click
ReservaBindingSource.Position = ReservaBindingSource.Find("Semana", TextBox1.Text)
Me.BindingContext(Inventario_ReservasDataSet, "Reserva").Position = Inventario_ReservasDataSet.Tables("Reserva").Rows. Count - 1
SemanaTextBox.Text = TextBox1.Text
If ReservaBindingSource.Find("Semana", TextBox1.Text) = False Then
End If
End Sub
Private Sub Terminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Terminar.Click
Me.Close()
Menú.Show()
End Sub
End Class
--------------------------------------------------------------------------------------------------------
2. Cuándo quiero agregar una nueva reserva me quedan los checkbox en estado indeterminado y tengo que chequearlos manualmente para dejarlos "unchecked" hay alguna forma que cuando haga clic en (+ o nuevo) me limpie todos los checkboxes?

CÓDIGO:

Public Class Reserves
Private Sub ReservaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReservaBindingNavigatorSaveItem.Click
Me.Validate()
Me.ReservaBindingSource.EndEdit()
Me.ReservaTableAdapter.Update(Me.Inventario_Reserv asDataSet.Reserva)
MsgBox("Su registro ha sido guardado con exito")
Me.Show()
End Sub
Private Sub Reservas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
Me.ReservaTableAdapter.Fill(Me.Inventario_Reservas DataSet.Reserva)
End Sub
Public Sub Calcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calcular.Click
Dim dfecha As Date = Fecha_Reserva.Text
Dim iNum As Int32 = DatePart("ww", dfecha)
Valor.Text = iNum
End Sub
Private Sub Cabaña_1CheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cabaña_1CheckBox.CheckedChanged
If Cabaña_1CheckBox.CheckState = CheckState.Checked Then
Cabaña_2CheckBox.Visible = False
Cabaña_3CheckBox.Visible = False
End If
If Cabaña_1CheckBox.CheckState = CheckState.Unchecked Then
Cabaña_2CheckBox.Visible = True
Cabaña_3CheckBox.Visible = True
End If
End Sub
Private Sub Cabaña_2CheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cabaña_2CheckBox.CheckedChanged
If Cabaña_2CheckBox.CheckState = CheckState.Checked Then
Cabaña_1CheckBox.Visible = False
Cabaña_3CheckBox.Visible = False
End If
If Cabaña_2CheckBox.CheckState = CheckState.Unchecked Then
Cabaña_1CheckBox.Visible = True
Cabaña_3CheckBox.Visible = True
End If
End Sub
Private Sub Cabaña_3CheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cabaña_3CheckBox.CheckedChanged
If Cabaña_3CheckBox.CheckState = CheckState.Checked Then
Cabaña_2CheckBox.Visible = False
Cabaña_1CheckBox.Visible = False
End If
If Cabaña_3CheckBox.CheckState = CheckState.Unchecked Then
Cabaña_2CheckBox.Visible = True
Cabaña_1CheckBox.Visible = True
End If
End Sub
Private Sub Terminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Terminar.Click
Me.Close()
Menú.Show()
End Sub
Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
Me.ReservaBindingSource.ResetAllowNew()
End Sub
End Class
--------------------------------------------------------------------------------------------------------
3. Cuando quiero buscar un registro entro al formulario de búsqueda y siempre me muestra el primer registro. Hay alguna forma de que inicialice todos los campos en blanco pero cuando le de clic en buscar me llene los campos?

CÓDIGO:

Public Class Disponible
Private Sub ReservaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.ReservaBindingSource.EndEdit()
Me.ReservaTableAdapter.Update(Me.Inventario_Reserv asDataSet.Reserva)
End Sub
Private Sub Disponibilidad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Cabaña_1TableAdapter.Fill(Me.Inventario_Reserva sDataSet.Cabaña_1)
Me.Cabaña_2TableAdapter.Fill(Me.Inventario_Reserva sDataSet.Cabaña_2)
Me.Cabaña_3TableAdapter.Fill(Me.Inventario_Reserva sDataSet.Cabaña_3)
Me.CenterToScreen()
Me.ReservaTableAdapter.Fill(Me.Inventario_Reservas DataSet.Reserva)
End Sub
Private Sub Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar.Click
ReservaBindingSource.Position = ReservaBindingSource.Find("Semana", TextBox1.Text)
Me.BindingContext(Inventario_ReservasDataSet, "Reserva").Position = Inventario_ReservasDataSet.Tables("Reserva").Rows. Count - 1
SemanaTextBox.Text = TextBox1.Text
If ReservaBindingSource.Find("Semana", TextBox1.Text) = False Then
End If
End Sub
Private Sub Terminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Terminar.Click
Me.Close()
Menú.Show()
End Sub
End Class
--------------------------------------------------------------------------------------------------------
AGRADEZCO DE ANTEMANO A ESA PERSONA DE BUEN CORAZÓN Y BUENOS CONOCIMIENTOS QUE ME PUEDA COLABORAR.