请问这个代码如何写

请教这个代码怎么写
 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