MODULE
 Public blnAdministrator As Boolean
    Public objdtsUitleningen As New dtsUitleningen
    Public objtblVerantwoordelijkenTA As New dtsUitleningenTableAdapters.tblverantwoordelijkenTableAdapter
    Public objtblUitleningenTA As New dtsUitleningenTableAdapters.tbluitleningenTableAdapter
    Public objtblMateriaalTA As New dtsUitleningenTableAdapters.tblmateriaalTableAdapter

objtblMateriaalTA.Fill(objdtsUitleningen.tblmateriaal)

        Dim objRijUitlening As dtsUitleningen.tbluitleningenRow
        Dim objRijMateriaal As dtsUitleningen.tblmateriaalRow
        Dim intMateriaalID As Integer

        intMateriaalID = InputBox("MateriaalID")

        objRijUitlening = objdtsUitleningen.tbluitleningen.NewtbluitleningenRow
        objRijUitlening.MateriaalID = intMateriaalID
        objRijUitlening.DatumOntlening = Today()

        objRijUitlening.Verantwoordelijke = InputBox("Verantwoordelijke")
        objRijUitlening.NaamLener = InputBox("Naam lener")

        For Each objRijMateriaal In objdtsUitleningen.tblmateriaal.Rows
            If objRijMateriaal.MateriaalID = intMateriaalID Then
                objRijUitlening.LocatieIn = objRijMateriaal.LocatieID
                objRijMateriaal.LocatieID = 1
                objRijMateriaal.Status = 0
            End If
        Next
        objdtsUitleningen.tbluitleningen.Rows.Add(objRijUitlening)
        objtblUitleningenTA.Update(objdtsUitleningen.tbluitleningen)
        objtblMateriaalTA.Update(objdtsUitleningen.tblmateriaal)


        MessageBox.Show("Uw nieuwe lening werd succesvol geregistreerd!", "Succesvolle registratie", MessageBoxButtons.OK)