mi objetivo es que cuando el usuario preste un libro y el libro tega por ejemplo 3 existencias al prestar el libro baje la existencia a 2 en la base de datos

Dim lectorr As SqlDataReader

Dim existencias As Integer = 0

lectorr = misdatos.consultar_c("libros where id_libro='" & id_libro & "'")

While lectorr.Read

existencias = lectorr("existencias")

If existencias < 1 Then

MsgBox("libro no disponible")

Else

existencias = existencias - 1

Dim comnnado1 As New SqlCommand("update libros set existencias='" & existencias & "' where id_libro='" & Me.TextBox1.Text & "'", conexion)

comnnado1.ExecuteNonQuery()

End If

MsgBox("la existencia es " & existencias)

lectorr.Close()