Good Day,

Below is my codes:

Code:
Private Sub btnRpt1_Click()
    Dim strBC, strDBI, strDBN, strJouFrm, strJouTo, strSQL, strTransDate, recCou As String
    strIndex = cmbDBR.ListIndex + 1
    strDBI = Check_DB(strIndex, "ID")
    strDBN = Check_DB(strIndex, "NM")
    strBC = txtBCR.Text
    strJouFrm = txtJouFrmR.Text
    strJouTo = txtJouToR.Text
...