Visual Basic

Dim myWindowHandle As IntPrt = frmMain.Handle

CREATE PROCEDURE InsertXMLData
{
    @XMLData ntext
}

AS
INSERT INTO MyDemoTable (XMLData) VALUES (@XMLData);
GO

<code>
Private Sub InsertXML(ByVal XMLData as XMLDocument)
     ' create a sqlconnection 
     Dim SQLCon as New SQLConnection("server=...")
     
     ' create a sql command
     Dim SQLCon as New SQLCommand("InsertXMLData", SQLCon)
     
     ' Set the command type and add parameters
     SQLCon.CommandType = CommandType.StoredProcedure
     SQLCon.Parameters.Add("@XMLData", XMLData.OuterXML.ToString)
       
     ' Variable to store records added.
     Dim RecordsAdded as Integer      
       
     ' Execute a non-query
     Try
        SQLCon.Open
        RecordsAdded = SQLCmd.ExecuteNonQuery
     Catch sqlex as SQLException
        RecordsAdded = -1
     Catch ex as Exception
        RecordsAdded = -1
     Finally
        SQLCon.Close
     End Try
End Sub
</code>

Dim sr As StreamReader = New StreamReader("C:\myPath\TestFile.xml")
Dim content As String
content = sr.ReadToEnd()
sr.Close()

Dim drNew As DataRow
drNew = DATASET.Tables(0).NewRow 'Create the new row
drNew.Item("FIRST") = txtFirst.Text
drNew.Item("LAST") = txtLast.Text
drNew.Item("PHONE") = txtHome.Text
DATASET.Tables(0).Rows.Add(drNew) 'Adds new row to dataset