Inserting XML Data Into a New Table FROM VB.NET

[sql_Michael_dotnet]

Can anyone help me figure out how to insert data into SQL Server when
a table to hold the data does not yet exist. I am able to insert data
into a existing table in the following fashion. But what if the table
does not exist? Appreciate any help I can get.

Private Sub InsertData()

Dim objSQLConn As New
SqlConnection("SERVER=.;UID=sa;PWD=;DATABASE=MyTes t;")
Dim objAdapter As SqlDataAdapter
Dim objDataRow As DataRow 'Dataset row
Dim objDBRow As DataRow 'SQL Server table row
Dim objDSXML As New DataSet
Dim objDSDBTable As New DataSet("People")
Dim ObjCmdBuilder As SqlCommandBuilder

objDSXML.ReadXml("C:\myXML.xml")
objSQLConn.Open()
objAdapter = New SqlDataAdapter("SELECT * FROM People WHERE 1
= 2 ", objSQLConn)
objAdapter.Fill(objDSDBTable, "People")

For Each objDataRow In objDSXML.Tables(0).Rows

With objDSDBTable.Tables(0)
objDBRow = .NewRow()
objDBRow(0) = objDataRow(0)
objDBRow(1) = objDataRow(1)
.Rows.Add(objDBRow)
End With

ObjCmdBuilder = New SqlCommandBuilder(objAdapter)
objAdapter.Update(objDSDBTable, "People")

Next

objSQLConn.Close()

End Sub