怎么把SQL中的数据读到DataGrid显示后,转换成XML文件?

将SQL中的数据实时的转换成XML,并将其转换的内容显示到DATAGRID中....(SQL中的字段和XML中的字段不完全一致,调用了存储过程)...******
 Dim ds As New DataSet
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Dim conn As New SqlConnection("server=DAHA8C7A7A10B;uid=sa;pwd=sa;database=select")
        
        Dim adp As New SqlDataAdapter("select * from obj_AirListOut", conn)
        adp.Fill(ds, "myselect")
       
        Dim mycom As New SqlCommand
        mycom.CommandType = CommandType.StoredProcedure
        mycom.CommandText = "dbo.StoredProcedure1"
        mycom.ExecuteNonQuery()        adminData.DataSource = ds.tables("myselect")
******
显示之后不知如何转成XML了....