[RESOLVED] What's missing?

[ganeshmoorthy]

could you post the full code...including the codes where you display the updated value to the text box...just requerying alone will not help you...if you have to code to display your records in txtCode_Change, call it again or write

rsStocks.Open "SELECT * FROM tblStocks WHERE Code = '" & txtCode.Text & "'", oConn, adOpenStatic, adLockOptimistic
    If rsStocks.RecordCount <> 0 Then
      txtSupply.Text = rsStocks.Fields("Quantity")
      txtDesc.Text = rsStocks.Fields("ProductDescription")
      'txtSellingPrice.Text = Format$(rsStocks.Fields("SellingPrice"), "P###,###,##0.00")
    Else
      txtSupply.Text = ""
      txtDesc.Text = ""
      'txtSellingPrice.Text = ""
      txtSubTotal.Text = ""
    End If