Private Sub Export()
        Dim conn As New OleDbConnection(ConnectionStringBT)
        Try
            conn.Open()
            ' SelectCommand erstellen
            Dim cmd As New OleDb.OleDbCommand
            cmd.Connection = conn
            cmd.CommandText = "SELECT * INTO [test.xls] IN 'c:\test' 'Excel" & _
              "11.0;' FROM" & _ 
            "[PWCServicesPaid] WHERE (PWCServicesPaid.[Service Code]" & _
            "= 'non-standard')"
            'cmd.CommandText = "SELECT * INTO [Artikel.htm] IN 'c:\' " & _
            '"'HTML Export;' FROM PWCServicesPaid WHERE " & _
            '"(PWCServicesPaid.[Service Code] = 'non-standard')"
            cmd.ExecuteNonQuery()
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "OleDbException", MessageBoxButtons.OK, _
              MessageBoxIcon.Exclamation)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Exception", MessageBoxButtons.OK, _
              MessageBoxIcon.Exclamation)
        Finally
            conn.Close()
        End Try
    End Sub
End Class