Dim objBL = CreateObject("SQLXMLBulkLoad.SQLXMLBulkLoad")
        objBL.ConnectionString = "Provider=sqloledb;server=" + _Server + ";database=" + _Database + ";integrated security=SSPI"
        objBL.ErrorLogFile = "c:\error.log"

        objBL.SchemaGen = True
        objBL.SGDropTables = True
        objBL.Bulkload = False


        'objBL.KeepIdentity = False
        objBL.Execute(xsdFilePath, xmlFilePath)
        objBL = Nothing

<xsd:schema xmlns:schema="urn:schemas-microsoft-com:sql:SqlRowSet" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:sqltypes="http://schemas.microsoft.com/sqlserver/2004/sqltypes" xmlns:sql="urn:schemas-microsoft-com:mapping-schema" elementFormDefault="qualified">
  <xsd:import namespace="http://schemas.microsoft.com/sqlserver/2004/sqltypes" schemaLocation="http://schemas.microsoft.com/sqlserver/2004/sqltypes/sqltypes.xsd" />

  <xsd:simpleType name="date">
    <xsd:restriction base="xsd:date">
      <xsd:pattern value="((000[1-9])|(00[1-9][0-9])|(0[1-9][0-9]{2})|([1-9][0-9]{3}))-((0[1-9])|(1[012]))-((0[1-9])|([12][0-9])|(3[01]))"/>
      <xsd:maxInclusive value="9999-12-31"/>
      <xsd:minInclusive value="0001-01-01"/>
    </xsd:restriction>
  </xsd:simpleType>