Public Class FormReservasClientes
    Private Sub btnReservar_Click(sender As Object, e As EventArgs) Handles btnReservar.Click
        If txtbDNI.Text = "" And txtbNombre.Text = "" And txtbApellidos.Text = "" And txtbTelefono.Text = "" And txtbEmail.Text = "" Then
            MsgBox("No se puede agregar sin datos introducidos", MsgBoxStyle.Critical, "Error")

        ElseIf txtbDNI.Text <> "" And txtbNombre.Text <> "" And txtbApellidos.Text <> "" And txtbTelefono.Text <> "" And txtbEmail.Text <> "" Then
            comando = New OleDb.OleDbCommand("INSERT INTO Clientes(DNI, Nombre, Apellidos, Telefono, Email)" & Chr(13) &
                                         "VALUES(@DNI, @Nombre, @Apellidos, @Telefono, @Email)", conexion)
            comando.Parameters.AddWithValue("@DNI", txtbDNI.Text)
            comando.Parameters.AddWithValue("@Nombre", txtbNombre.Text)
            comando.Parameters.AddWithValue("@Apellidos", txtbApellidos.Text)
            comando.Parameters.AddWithValue("@Telefono", txtbTelefono.Text)
            comando.Parameters.AddWithValue("@Email", txtbEmail.Text)
            comando.ExecuteNonQuery()

            MsgBox("Datos de la habitación almacenados correctamente!!", MsgBoxStyle.Information, "Información")
        End If

        FormReservaHabitaciones.Show()
        Me.Hide()
    End Sub

    Private Sub btnAtras_Click(sender As Object, e As EventArgs) Handles btnAtras.Click
        FormEntrada.Show()
        Me.Hide()
    End Sub
End Class