Fetch the data from table if combo box value is choose (drop down list)

[kirubagari]

I'm having the issue where unable fetch the data if the value in combo box is chosen.
The problem is when user choose the value from combo box,i want the code fetch for the rest data from the table.

Kindly help how i can work on this..Attach is my code

 
Private Function ListOfCommendCode(ByRef poutcolCommendCode As FwStrings, ByRef poutstrErrDesc As String) As Long
 
2        Dim lngRetCode As Long
 
4        Dim sSQLstatement As String
 
6        Dim objSQL As clsSQL
7        Dim cRow As FwAttributes
8        Dim vColValue As Variant
9        Dim Index As Integer
 
11       On Error GoTo ErrorHandler
 
13       'Allocate Memory
14       Set objSQL = New clsSQL
 
16       ' Initialization
17       If poutcolCommendCode Is Nothing Then Set poutcolCommendCode = WIP.CreateFwStrings
 
19       ' Get list of area
20       sSQLstatement = "SELECT comment_code " & _
                  "FROM CIM_TBL_MULTIPLEHOLD " & _
                  "WHERE STATUS ='Hold ' "
 
25       ' Access database
26       objSQL.Server = "CATdefault"
27       objSQL.SqlCall = sSQLstatement
 
29       If objSQL.SqlResult.Count > 0 Then
30           For Each cRow In objSQL.SqlResult
31               For Index = 1 To cRow.Count
32                   vColValue = Trim(cRow.Item(Index))
33                   poutcolCommendCode.Add vColValue
34                  coReasonCode.AddItem vColValue
35               Next Index
36           Next
37       End If
 
39       lngRetCode = 0
40       GoTo ExitHandler
 
42 ErrorHandler:
43       lngRetCode = Err.Number
44       poutstrErrDesc = Err.Description
45       Trace ("Fail to get list of route area due to Error: " & CStr(Err.Number) & " " & Err.Description)
 
47 ExitHandler:
48       ' Release the referenced obejct
49       If Not objSQL Is Nothing Then Set objSQL = Nothing
 
51       ' Set the function return value
52       ListOfCommendCode = lngRetCode
End Function
 
Private Sub Form_Load()
 
2       CenterForm Me
 
        Dim lngRetCode As Long
        Dim poutcolCommendCode As FwStrings
        Dim poutstrErrDesc As String
             ' Clear the original text
18       coReasonCode.text = ""
 
34                ' Dropdown list for area
35       lngRetCode = ListOfCommendCode(poutcolCommendCode, poutstrErrDesc)
36       If lngRetCode <> 0 Then
37           Err.Raise lngRetCode, , poutstrErrDesc
38       End If
 
40       GoTo ExitHandler
 
42 ErrorHandler:
43       MsgBox "Error encounter during Form Load: " & Err.Description
 
45 ExitHandler:
 
End Sub