请教这个代码怎么写
Private Sub FillByToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillByToolStripButton.Click
Try
Me.TiaomaTableAdapter.FillBy(Me.TiaomaDataSet.tiao, TextBox25.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

End Sub


想用按钮调用这个查询过程，请教下怎么在Button3_Click写代码
[解决办法]
private sub Button3_Click(byval sender as object, byval e as EventArges) handles Button3.Click
FillByToolStripButton_Click(FillByToolStripButton,e)
end sub