cmdkirim sirs online

Private Sub cmdKirim_Click()
    On Error Resume Next
   
    TotalKirim = 0
    iPost = 0
    txtresult.Text = ""
    Call openConnection(dbconn)
    strSQL = "select * from V_KetersediaanKamarSIRSNew2020 order by KelasSIRS"
    Call msubRecFO(rs, strSQL, dbconn)
    statcovid = "0"
    jmlruang = "0"
    TotalKirim = rs.RecordCount
    rs.MoveFirst
    
    For i = 1 To rs.RecordCount
        statKirim = False
        Do While statKirim = False
            statKirim = kirimSirs(rs.Fields("KelasSIRS").Value, rs.Fields("NamaRuangan").Value, rs.Fields("jmlruang").Value, rs.Fields("jmlkamar").Value, rs.Fields("terpakai").Value, rs.Fields("prepare").Value, rs.Fields("prepare_plan").Value, rs.Fields("covid").Value)
        Loop
        iPost = iPost + 1
        If i = rs.RecordCount Then
            rs.MoveNext
        Else
            Exit For
        End If
    Next i
    Exit Sub
End Sub