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

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.

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

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

There is error window open
(Arguments not optional)

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.