heres my edited version of the code:
Private Sub Borrow_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "Loan",table I want to enter data in cn, adOpenDynamic, adLockOptimistic...