opened web page by VB6 WebBrowser contol, this page cantain textbox call textbox1 but there no submit button, so when inout the number in the textbox end press enter page retrive informatin from the database. I have the following code which place input data (number or text) in textbox and triger the bubmit button to retrive information automatically, but sine the page have no submit button and only press enter in the textbox to retrive information, please some one look the code and advise how can trigger the input textbox.

code: THIS CODE WORKED FINE IF PAGE HAVE SUBMIT BUTTON.

Private Sub Command1_Click()

Dim htmlSearchButton As HTMLButtonElement

Set docCurrentHTML = WebBrowser1.Document.documentElement.All

' This field the value in web page textbox1

For Each Item In docCurrentHTML

If Item.tagName = "INPUT" Then
If Item.Name = "textbox1" Then
Item.Value = "1148"
Exit For
End If
End If


Next Item


' The data is in. Now find the button and click it,

' HERE IS I HAVE PROBLEM, SINCE THERE IS NO SUBMIT BUTTON THE COSE SHOULS CLICK TEXTBOX1

For Each Item In docCurrentHTML

If Item.tagName = "INPUT" Then
If Item.Name = "textbox1" Then
Set htmlSearchButton = Item
htmlSearchButton.Click
Exit For
End If
End If

Next Item

Thanks