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= MyTest;")
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 SqlCommandBuild er

objDSXML.ReadXm l("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.Ta bles(0)
objDBRow = .NewRow()
objDBRow(0) = objDataRow(0)
objDBRow(1) = objDataRow(1)
.Rows.Add(objDB Row)
End With

ObjCmdBuilder = New SqlCommandBuild er(objAdapter)
objAdapter.Upda te(objDSDBTable , "People")

Next

objSQLConn.Clos e()

End Sub