Dim a
a = InputBox("Input Product Code :", "Find", "")
If a = "" Then
Exit Sub
End If
Set rs = New ADODB.Recordset
rs.Open "Select * from Product where pcode='" & a & "'", cn, adOpenStatic, adLockPessimistic
Set MSHFlexGrid1.DataSource = rs
If rs.RecordCount > 0 Then
rs.Fields("pcode") = Text1.Text
rs.Fields("brandname") = Text2.Text
rs.Fields("genericname") = Text3.Text
rs.Fields("price") = Text4.Text
Command1.Enabled = False
Command2.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
End If

Dim a , strsql as string 
 
'pls check your inputbox forget using it
'idont have any vb6 installed in my pc , now using csharp2005
a = InputBox("Input Product Code :", "Find", "")
If a = "" Then Exit Sub
 
'think this would help 
 
strsql = " select * from Product " 
strsql = strsql & " where " 
strsql = strsql & " pcode='" & trim(a) & "'"
 
Set rs = New ADODB.Recordset
rs.CursorLocation = AdUseClient
 
rs.open strsql, cn, AdOpenForwardonly, AdLockReadonly
'exit if no record 
if rs.Recordcount = 0 then exit sub
if rs.Recordcount > 0 Then 
          'display record in textbox
          'hope it helps 
          Text1.text = rs.Fields("pcode") 
          Text2.Text= rs.Fields("brandname") 
          etc....
 
         Set MSHFlexGrid1.DataSource = rs
end if
Command1.Enabled = False
Command2.Enabled = False
Command4.Enabled = False
Command5.Enabled = False