Get detail when key in ID

Actually I have 3 form such as form Loan, form Equipment and form Return. I want link each form use Equipment ID. In form Loan i have Equipment ID,Name,Staff ID,Telephone No,Department,Equipment Item,Date Loan, Date Return and Period. In form Equipment i have Equipment ID, Equipment Item (with combo box list),model(combo box list),Description,Quantity,Serial No and Status. When user key in the form Loan i want Equipment Item will be automatic display when user key in Equipment ID. In form Return i have same details with form Loan but i have no idea how to change the status available back after user key in form Return.

This is my form Loan code.

Public Class frmLoan
Dim cnn As New OleDb.OleDbConnection

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

Dim intResponse As Integer

intResponse = MsgBox("Are you sure want to quit?", _
vbYesNo + vbQuestion, _
"Quit")

frmMenu.Show()
Me.Close()


End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
Me.txtEquipmentID.Text = ""
Me.txtName.Text = ""
Me.txtStaffID.Text = ""
Me.txtTelNo.Text = ""
'Me.cboDepartment.Items.Clear() 'item clear when edit after that clear button
' Me.cboEquipmentItem.Items.Clear() 'item clear when edit after that clear button
'dtpDateLoan.Text = ""
Me.txtPeriod.Text = ""
Me.txtEquipmentID.Tag = ""

'enable button edit
Me.btnEdit.Enabled = True

'set button add to add label
Me.btnAdd.Text = "Add"

Me.txtEquipmentID.Focus()
End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click


Dim cmd As New OleDb.OleDbCommand

Dim DateLoan As DateTime = dtpDateLoan.Value
Dim DateReturn As DateTime = dtpDateReturn.Value
Dim result As TimeSpan = DateLoan.Subtract(DateReturn)
Dim Period As Integer = result.TotalDays
txtPeriod.Text = Period

If Not cnn.State = ConnectionState.Open Then
'open connection if it is not open yet
cnn.Open()

End If

cmd.Connection = cnn
'check whether add new or update
If Me.txtEquipmentID.Tag & "" = "" Then
'add new to data table

cmd.CommandText = "INSERT INTO Loan(EquipmentID, Name, StaffID, TelephoneNo, Department, EquipmentItem, DateLoan, DateReturn, Period)" & _
" VALUES (" & Me.txtEquipmentID.Text & ", '" & Me.txtName.Text & "', '" & Me.txtStaffID.Text & "', '" & Me.txtTelNo.Text & "','" & _
Me.cboDepartment.Text & "','" & Me.txtEquipItem.Text & "','" & dtpDateLoan.Value & "', '" & dtpDateReturn.Value & "', '" & Me.txtPeriod.Text & "')"

cmd.ExecuteNonQuery()
'display msge box
MsgBox("Successfull added")
Else
'update data in datatable
cmd.CommandText = "UPDATE Loan " & _
"SET EquipmentID= " & Me.txtEquipmentID.Text & _
", Name='" & Me.txtName.Text & "'" & _
", StaffID='" & Me.txtStaffID.Text & "'" & _
", TelephoneNo='" & Me.txtTelNo.Text & "'" & _
", Department='" & Me.cboDepartment.Text & "'" & _
", EquipmentItem='" & Me.txtEquipItem.Text & "'" & _
", Period='" & Me.txtPeriod.Text & "'" & _
"WHERE EquipmentID=" & Me.txtEquipmentID.Tag
cmd.ExecuteNonQuery()

End If
Me.btnClear.PerformClick()

'close conneciton
cnn.Close()



End Sub

Private Sub frmLoan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cnn = New OleDb.OleDbConnection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\HaniAll\EquipmentTracking\Equipment.mdb;Persist Security Info=True"

Me.Refresh()


End Sub

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
'check for the selected item in list
If Me.dgvLoan.Rows.Count > 0 Then
If Me.dgvLoan.SelectedRows.Count Then
Dim intEquipmentID As Integer = Me.dgvLoan.SelectedRows(0).Cells("id").Value
'get data form database followed by equipid
'open conneciton
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If

Dim DateLoan As DateTime = dtpDateLoan.Value
Dim DateReturn As DateTime = dtpDateReturn.Value
Dim result As TimeSpan = DateLoan.Subtract(DateReturn)
Dim Period As Integer = result.TotalDays
txtPeriod.Text = Period

'get data into datatable
Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Loan " & _
"WHERE EquipmentID=" & intEquipmentID, cnn)

Dim dtLoan As New DataTable
da.Fill(dtLoan)


Me.txtEquipmentID.Text = intEquipmentID
Me.txtName.Text = dtLoan.Rows(0).Item("Name")
Me.txtStaffID.Text = dtLoan.Rows(0).Item("StaffID")
Me.txtTelNo.Text = dtLoan.Rows(0).Item("TelephoneNo")
Me.cboDepartment.Text = dtLoan.Rows(0).Item("Department")
Me.txtEquipItem.Text = dtLoan.Rows(0).Item("EquipmentItem")
Me.txtPeriod.Text = dtLoan.Rows(0).Item("Period")


'hide the id to be edited in TAG of txtEquipId in case id is changed
Me.txtEquipmentID.Tag = intEquipmentID
'change button add to update
Me.btnAdd.Text = "Update"
'disable button edit
Me.btnEdit.Enabled = False



End If

End If
End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
'check for the selected item in list
If Me.dgvLoan.Rows.Count > 0 Then
If Me.dgvLoan.SelectedRows.Count > 0 Then
Dim intEquipmentID As Integer = Me.dgvLoan.SelectedRows(0).Cells("id").Value
'open connection
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If

'delete data
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = cnn
cmd.CommandText = "DELETE FROM Loan WHERE EquipmentID=" & intEquipmentID



'msgbox
Dim intResponse As Integer

intResponse = MsgBox("Are you sure want to delete " _
& " this item? ", _
vbYesNo + vbDefaultButton2, _
"Delete")
'If intResponse = vbYes Then
' 'code to delete the rows would go here
'End If


cmd.ExecuteNonQuery()

'refresh data
Me.Refresh()

'close connection
cnn.Close()



End If


End If
End Sub

Private Sub btnList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnList.Click
If Not cnn.State = ConnectionState.Open Then
'open connection
cnn.Open()
End If

Dim da As New OleDb.OleDbDataAdapter("SELECT EquipmentID as [ID], " & _
"Name as [Name], StaffID, TelephoneNo, Department, EquipmentItem, DateLoan,DateReturn,Period " & _
"FROM Loan ORDER BY EquipmentID", cnn)

Dim dtLoan As New DataTable
'fill data to datatable
da.Fill(dtLoan)

'offer data in datatable into datagridview
Me.dgvLoan.DataSource = dtLoan

'close connection
cnn.Close()



End Sub


End Class

Yes. I already successful set the equipment first available and change to unavailable if equipment borrowed. But now i have no idea to change back after the equipment return back to available in Form Return. Tq for helping