Option Explicit  Dim gCn As New ADODB.Connection  Const DBGUID_DEFAULT As String = "{C8B521FB-5CF3-11CE-ADE5-00AA0044773D}" Const DBGUID_SQL As String = "{C8B522D7-5CF3-11CE-ADE5-00AA0044773D}" Const DBGUID_MSSQLXML As String = "{5D531CB2-E6Ed-11D2-B252-00C04F681B71}" Const DBGUID_XPATH As String = "{ec2a4293-e898-11d2-b1b7-00c04f680c56}"  Private Sub cmdExitProgram_Click()     Unload Me     End End Sub  Private Sub cmdTestIt_Click()      Dim cmd As ADODB.Command     Dim strm As ADODB.Stream      On Error GoTo trap     Set cmd = New ADODB.Command     Set cmd.ActiveConnection = gCn      Set strm = New ADODB.Stream     strm.Open     cmd.Dialect = DBGUID_XPATH      cmd.Properties("Mapping Schema") = App.Path & "\CustomerOrder.xdr"     cmd.Properties("Output Stream") = strm      txtXPath = Trim(txtXPath)     If txtXPath = "" Then         txtXPath = "Customers"     End If      cmd.CommandText = txtXPath     cmd.Execute , , adExecuteStream     strm.Position = 0     txtResults = strm.ReadText     txtResults = Replace(txtResults, "><", ">" & vbCrLf & "<")     strm.Position = 0     strm.Close      GoTo cleanup  trap:      MsgBox "Error (" & Err.Number & ") -- " & Err.Description  cleanup:     Set strm = Nothing     Set cmd = Nothing      Exit Sub  End Sub  Private Sub Form_Load()  On Error GoTo trap     Set gCn = New ADODB.Connection     gCn.ConnectionString = "PROVIDER=SQLOLEDB;Data Source=.;Initial Catalog=Northwind;uid=sa;pwd="     gCn.Open     Exit Sub trap:     MsgBox "Failed to connect to database.  Program Shutting down."     Unload Me     End End Sub