C#

public static System.Timers.Timer timer1;

private static void OnTimedEvent(object source, ElapsedEventArgs e)
{
    Console.write("test");
}

static void Main(string[] args)
{

        timer1 = new System.Timers.Timer();
        timer1.Elapsed += new ElapsedEventHandler(OnTimedEvent);


        timer1.Interval = 10000;
        timer1.Start();

}

static void Main(string[] args)
{
      timer1 = new System.Timers.Timer();
      timer1.Elapsed += new ElapsedEventHandler(OnTimedEvent);
      timer1.Interval = 10000;
      timer1.Start();
      Console.ReadLine()
}

public static System.Timers.Timer timer1;
private static System.Threading.ManualResetEvent mrEvent = new System.Threading.ManualResetEvent(false);

private static void OnTimedEvent(object source, ElapsedEventArgs e)
{
    Console.write("test");
    mrEvent.Set();
}

static void Main(string[] args)
{
    timer1 = new System.Timers.Timer();
    timer1.Elapsed += new ElapsedEventHandler(OnTimedEvent);

    timer1.Interval = 10000;
    timer1.Start();

    mrEvent.WaitOne();
}

timer1.Start();
Console.Readline();

using (DataTable tblUsers = new DataTable("Users"))
{
    using (SqlConnection myConn = new SqlConnection(ConnectionString))
    {
        using (SqlDatAdapter adpUsers = new SqlDataAdapter("SELECT * FROM Users", myConn))
        {
            myConn.Open();
            adpUsers.Fill(tblUsers);
            myConn.Close();
        }
    }

    foreach (DataRow drUserInformation in tblUsers.Rows)
    {
        // This is a loop through your recordset
    }

}

Dim crExportOptions As ExportOptions
        Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
        Dim ExportPath As String = IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData, attachmentName & ".pdf")
        ' Set the path for the exported report 
        crDiskFileDestinationOptions = New DiskFileDestinationOptions
        crDiskFileDestinationOptions.DiskFileName = ExportPath

        ' Set the options to export the report to PDF format 
        crExportOptions = rpt.ExportOptions
        With crExportOptions
            .DestinationOptions = crDiskFileDestinationOptions
            .ExportDestinationType = ExportDestinationType.DiskFile
            .ExportFormatType = ExportFormatType.PortableDocFormat
        End With

        ' Export the report 
        rpt.Export()