Cara Cek Peminjaman buku Yang belum di kembalikan Visual basic(vb6)

kasus nya begini siswa hanya bisa pinjam satu buku , dan jika siswa masih belum mengembalikan buku , maka siswa tidak boleh meminjam buku , dan di sebelum input peminjaman ada pengecekan peminjaman buku siswa .



Dim rbuk As Recordset
Dim sSQL As String
Dim ssql2 As String
Dim terang As String
Dim rspinjam As Recordset
Dim ab As String
ab = "sudah di kembalikan"
Set rspinjam = New ADODB.Recordset
rspinjam.Open "SELECT * FROM pinjam WHERE nis='" & Trim(Me.txtcek.Text) & "'", conndb
If Not rspinjam.EOF Then
    If rspinjam!statusbuku = "sudah di kembalikan" Then
        MsgBox "Siswa dapat meminjam buku", vbInformation, "Info"
    Else
        MsgBox "Maaf, Siswa dilarang Meminjam buku !!", vbCritical, "Info"
    End If
Else
    MsgBox "Data Siswa Tidak Ditemukan", vbInformation, "Info"
End If