duda sobre Prestamos / devoluciones

[laluka]

El problema es con el comboBox, no se actualiza su estado , tengo dos conecciones distintas una para cada una de las tablas :


Public cnn As New adodb.Connection
Public rs As New adodb.Recordset

Public cnn1 As New adodb.Connection
Public rs1 As New adodb.Recordset

cnn1.Execute "INSERT INTO Prestamos " & "(NP,Nombre,NumeroDeLibro,FechaP) VALUES('" & _
Text2(0) & "','" & _
Text2(1) & "','" & _
Text2(2) & "','" & _
Format(Date, "dd/mm/yyyy") & "')"



la primera es para libros y la otra para prestamos , ahora nos se como actualizar el estado del combobox que esta en "Disponible" a no disponible al hacer el prestamo , el combobox esta en la tabal libros y se llama Cmbestado. te ruego que me ayudes , desde ya gracias!!