如何增加一个BUTTON控件，用于复制DATAGRID中的查询结果

Insert page code here
'
  Function MyQueryMethod(ByVal JS As String) As System.Data.DataSet
  Dim connectionString As String = "server='localhost'; user id='sa'; password=''; Database='pubs'"
  Dim sqlConnection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectionString)

  Dim queryString As String = "SELECT [C115].[HM] FROM [C115] WHERE ([C115].[JS] = @JS)"
  Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

  sqlCommand.Parameters.Add("@JS", System.Data.SqlDbType.[Char]).Value = JS

  Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(sqlCommand)
  Dim dataSet As System.Data.DataSet = New System.Data.DataSet
  dataAdapter.Fill(dataSet)

  Return dataSet
  End Function

  Sub Button1_Click(sender As Object, e As EventArgs)
DataGrid1.DataSource =MyQueryMethod(CInt(TextBox1.Text))
DataGrid1.DataBind()
End Sub

Sub TextBox2_TextChanged(sender As Object, e As EventArgs)

End Sub

DATAGRID中查询出的结果不想用鼠标选中复制，想直接增加一个复制控制，点复制后供其他地方粘贴使用，请各位老兄帮这小忙