Facing problem on data load

[Syed Asghar Ali]

Sir I am facing problem,I want that when I open my form then select combo box value and by combo box my bellow grid and text box fill...but it is showing coding problem,so please guide me.
What can I do?
Regards: Asghar

[chriswelborn]

Start by posting what you have tried already. Condense it down to only what is needed to show your problem. If there are any errors then post the error message and line number.

You haven't really told us what the problem is, only that there is a problem. We need more information to help you.

[Syed Asghar Ali]

Thanks for response Chriswelborn, and I am facing coding problem, wait I am showing to you.

[Syed Asghar Ali]

This is my code.

Private Function GetPartyList()

    Dim arrParam(0 To 1) As Variant
    Dim rsRData As New Recordset
    Dim result As String
    Dim sql As String

    result = ""

    ''Set Con = MdlConnect.OpenConnection()
    rsRData.Open "Select CustID,CustomerName from VuePOS where CustID =" & PartyID & "", OpenConnection(), adOpenDynamic, adLockOptimistic
    Set RScData = rsRData

    arrParam(0) = "CustID"
    arrParam(1) = "CustomerName"

    cbo.Clear
    Call RScData.Close
    RScData Nothing

End Function

[Syed Asghar Ali]

There is error window open
(Arguments not optional)