If Len(sFormatNo)= FORMATNOLGTH Then
If Mid(sFormatNo, 5, 1) = "-" Then
sSelect = "Select * from FORMATNO where acct = '" _
& Mid(sFormatNo, 1, 4) & "'"
On Error Resume Next
Call DataBase.SelectSnapshot(rsRecords, sSelect)
If Err.Number = 0 Then
On Error GoTo 0
sNo = Right(sChargeNo, Len(sChargeNo) - 5)
Select Case rsRecords("rule").Value
Case "".....
End If
End If
elseIf Len(sFormatNo)= FORMATNOLGTH2 then
If Mid(sFormatNo, 10, 1) = "-" then
end if
end if