كيفية عمل كود بحث فى الفيجوال بيسك

Private Sub Command1_Click()

On Error GoTo errorsub
ser = Combo1.Text

If Combo1.Text = "Order-Model No-Size" Then
ser = "PrimaryKey"
End If

Form1.Data1.Recordset.Index = ser


Form1.Data1.Recordset.MoveFirst
Do While Not Form1.Data1.Recordset.EOF
Form1.Data1.Recordset.MoveNext
Loop
Form1.Data1.Recordset.MoveFirst


strseek = InputBox("Enter Data to search about " & Combo1.Text)
Form1.Data1.Recordset.Seek "=", CStr(strseek)
If Form1.Data1.Recordset.NoMatch = True Then
MsgBox " Invalid data type " & strseek
Form1.Data1.Recordset.MoveLast
Else
Form1.Combo1.Text = Form1.Data1.Recordset.Fields("Customer code")
Form1.Combo3.Text = Form1.Data1.Recordset.Fields("Fabric type")

Form1.Text2.Text = Form1.Data1.Recordset.Fields("Customer name")
Form1.Text3.Text = Form1.Data1.Recordset.Fields("Date")
Form1.Text4.Text = Form1.Data1.Recordset.Fields("Shipment date")
Form1.Text5.Text = Form1.Data1.Recordset.Fields("Cancel date")
Form1.Text6.Text = Form1.Data1.Recordset.Fields("Quantity")
Form1.Text7.Text = Form1.Data1.Recordset.Fields("Quantity-Restor")
Form1.Text8.Text = Form1.Data1.Recordset.Fields("Wt of mt2")
Form1.Text9.Text = Form1.Data1.Recordset.Fields("Finished width")

End If
GoTo 10
errorsub:
MsgBox "Check missing data or enter right record "
10:
Form7.Visible = False
End Sub