Hola, quería saber si pueden ayudarme con este código que me da un error al ejecutarlo

Private Sub Command13_Click()
Set rv = New ADODB.Recordset
With rv
 .Open "SELECT * FROM tblReserve", cn, 2, 3
 Do While Not .EOF
 If !Reserve_Number = Label13.Caption Then
 If MsgBox("Confirm Guest Checkin.", vbQuestion + vbYesNo, "Note") = vbNo Then: Exit Sub
 '--------------------------------------
 Set rc = New ADODB.Recordset
 With rc
 .Open "SELECT * FROM tblTransactions", cn, 2, 3
 .AddNew
 !C_Number = Label50.Caption
 !CustID = Label21.Caption
 !DateIn = Format(Now, "mm-dd-yyyy")
 !TimeIn = TimeValue(Now)
 !DateOut = Label37.Caption
 !Nights = Label42.Caption
 !Child = Label48.Caption
 !Adult = Label49.Caption
 !Discount = Label39.Caption
 !A_Payment = Label30.Caption
 !Stat = "Active"
 .Update
 '----------------------------------------
 Set rr = New ADODB.Recordset
 With rr
 .Open "Select * from Room", cn, 2, 3
 Do While Not .EOF
 If !ReserveNum = Label13.Caption Then
 '------------------------------
 Set rs = New ADODB.Recordset
 With rs
 .Open "Select * from tblRoomCheck", cn, 2, 3
 .AddNew
 !TRNum = Label50.Caption
 !RNum = rr!RNum
 !RType = rr!RType
 !RRate = rr!RRate
 !Arrival = DTPicker3.Value
 !Remarks = "Checked in"
 !Departure = Label37
 !Daysone = (Date - DTPicker3.Value) + 1
 !tots = !RRate * !Daysone
 .Update
 '------------------------------
 Set rm = New ADODB.Recordset
 With rm
 .Open "Select * from tblroom", cn, 2, 3
 Do While Not .EOF
 If !RoomNumber = rs!RNum Then
 !RoomStatus = "Occupied"
 !Desc = ""
 !DateIn = ""
 !DateOut = ""
 .Update
 End If
 .MoveNext
 Loop
 End With
 '------------------------------
 End With
 '------------------------------
 End If
 .MoveNext
 Loop
 End With
 '------------------------------------------
 Set rv = New ADODB.Recordset
 With rv
 .Open "Select * from tblreserve", cn, 2, 3
 Do While Not .EOF
 If !Reserve_Number = Label13.Caption Then
 !Stat = "Inactive"
 .Update
 End If
 .MoveNext
 Loop
 End With
 End With
 '--------------------------------
 Set rc = New ADODB.Recordset
 With rc
 .Open "SELECT * FROM C_Charge", cn, 2, 3
 .AddNew
 !CNumber = Label50.Caption
 !C_Type = "none"
 !C_Rate = "0"
 !C_Qty = "0"
 .Update
 End With
 '-------------------------------
 Set rs = New ADODB.Recordset
 With rs
 .Open "SELECT * FROM ID", cn, 2, 3
 !CID = Label50.Caption
 .Update
 End With
 '----------------------------------
 Set rs = New ADODB.Recordset
 With rs
 .Open "SELECT * FROM H_Trans", cn, 2, 3
 .AddNew
 !AccID = main.Label2.Caption
 !Trans = "Check in"
 !DateTime = Date & " " & Time
 .Update
 End With
 '----------------------------------
 End If
 .MoveNext
 Loop
 MsgBox "Guest Check In. All fields have been recorded.", vbInformation, "Checkin"
 dispaly_reserved
 Frame3.Visible = False
 clear
End With
End Sub
Private Sub Command1_Click()
Set rv = New ADODB.Recordset
With rv
 .Open "Select * from tblreserve", cn, 2, 3
 If MsgBox("Clear list?", vbQuestion + vbYesNo, "Note") = vbNo Then: Exit Sub
 Do While Not .EOF
 If !Reserve_Number = Label18.Caption Then
 '----------------------------------------------------------------------
 Set rm = New ADODB.Recordset
 With rm
 .Open "SELECT * FROM Room", cn, 2, 3
 Do While Not .EOF
 If !ReserveNum = Label18.Caption Then
 '--------------------------------------------------------------
 Set rr = New ADODB.Recordset
 With rr
 .Open "Select * from tblroom", cn, 2, 3
 Do While Not .EOF
 If !RoomNumber = rm!RNum Then
 !RoomStatus = "Vacant"
 .Update
 End If
 .MoveNext
 Loop
 End With
 '--------------------------------------------------------------
 End If
 .MoveNext
 Loop
 End With
 '----------------------------------------------------------------------
 .Delete
 .Update
 End If
 .MoveNext
 Loop
End With
List1.clear
Label25.Caption = "0"
End Sub
Sub display_ROOM()
Set rr = New ADODB.Recordset
With rr
.Open "SELECT * FROM tblRoom WHERE RoomStatus = 'Vacant'", cn, 2, 3
 ListView3.ListItems.clear
 Do While Not .EOF
 Set a = ListView3.ListItems.Add(, , !RoomNumber & "", , "a")
 .MoveNext
 Loop
End With
End Sub
Sub dispaly_GUEST()
Set rg = New ADODB.Recordset
With rg
.Open "SELECT * FROM tblGuest WHERE Status='Pending'", cn, 2, 3
 Do While Not .EOF
 Combo1.AddItem !Cust_ID + " - " + !FName & " " & !LName
 .MoveNext
 Loop
End With
End Sub
Sub dispaly_reserved()
Set rv = New ADODB.Recordset
With rv
.Open "SELECT * FROM tblReserve, tblGuest WHERE tblReserve.CustID = tblGuest.Cust_ID AND Stat='Active'", cn, 2, 3
 ListView1.ListItems.clear
 Do While Not .EOF
 Set a = ListView1.ListItems.Add(, , " " & !Reserve_Number & "", , "a")
 a.ListSubItems.Add.Text = !FName & " " & !MName & " " & !LName
 a.ListSubItems.Add.Text = !ReserveDate & " " & !TimeIn
 a.ListSubItems.Add.Text = !DateIn
 a.ListSubItems.Add.Text = !DateOut
 a.ListSubItems.Add.Text = !Nights
 a.ListSubItems.Add.Text = !Advance
 a.ListSubItems.Add.Text = !Discount
 a.ListSubItems.Add.Text = !Child
 a.ListSubItems.Add.Text = !Adult
 .MoveNext
 Loop
End With
End Sub
Sub display_rroom()
Set rv = New ADODB.Recordset
With rv
 .Open "SELECT * FROM Room WHERE ReserveNum='" & Label13.Caption & "'", cn, 2, 3
 ListView2.ListItems.clear
 Do While Not .EOF
 Set a = ListView2.ListItems.Add(, , !RNum & "", , "a")
 a.ListSubItems.Add.Text = !RType
 a.ListSubItems.Add.Text = !RRate
 .MoveNext
 Loop
End With
End Sub
Sub roomtype()
Set rr = New ADODB.Recordset
With rr
 .Open "SELECT RoomType FROM tblRoom ORDER BY RoomType", cn, 2, 3
 Do While Not .EOF
 Combo4.AddItem !roomtype
 .MoveNext
 Loop
End With
End Sub
Sub disctype()
Set rr = New ADODB.Recordset
With rr
 .Open "SELECT * FROM tblDisc", cn, 2, 3
 Do While Not .EOF
 Combo2.AddItem !DiscountDesc
 .MoveNext
 Loop
End With
End Sub
Private Sub Label53_Change()
Label60 = "Advance must be atleast " & Val(Label54) * 0.5
Label54 = Val(Text2) - Val(Label53)
End Sub
Private Sub Label54_Change()
Label60 = "Advance must be atleast " & Val(Label54) * 0.5
End Sub
Private Sub ListView1_Click()
On Error Resume Next
Set rv = New ADODB.Recordset
With rv
 .Open "SELECT * FROM tblReserve", cn, 2, 3
 Do While Not .EOF
 If " " & !Reserve_Number = ListView1.SelectedItem.Text Then
 Label62.Caption = !Reserve_Number
 End If
 .MoveNext
 Loop
End With
End Sub
Private Sub ListView1_DblClick()
mnuView_Click
End Sub
Private Sub ListView1_MouseUp(Button As Integer, Shift As...