Visual Basic

<br />
Private Sub cmdExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExport.Click<br />
<br />
        Dim DBConnection As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\db1.mdf" & _<br />
        ";Integrated Security=True;User Instance=True")<br />
        Dim SQLDataset As New DataSet("db1") <br />
        Dim currentUser As String<br />
        Dim trimUserName As String<br />
        currentUser = My.User.Name<br />
<br />
        trimUserName = My.User.Name.ToUpper.ToString()<br />
        currentUser = trimUserName.Substring(9)<br />
<br />
        DBConnection.Open() 'open database<br />
<br />
        Dim dbAdapter As New SqlDataAdapter("SELECT * FROM tblContacts WHERE Status = 'NEW'", DBConnection)<br />
<br />
          dbAdapter.Fill(SQLDataset) <br />
<br />
        If SQLDataset.Tables("Table").Rows(0)(14).ToString = "NEW" Then<br />
              <br />
            'then send data to SQL Server 7.0<br />
            <br />
<br />
        End If<br />
<br />
        SQLDataset.WriteXml("c:\temp\" & currentUser & ".xml", XmlWriteMode.WriteSchema)<br />
        DBConnection.Close()<br />
<br />
<br />
<br />
<br />
    End Sub<br />