.NET (Core and Framework)

This is the program:

dim data as boolean=true
'dim dt as system.data.datarow
if CType(mainformdataset.tables("BO3").rows(0).item("TAXPOINTDT"),system.date)=01.01.1900
Return False
ELSE
Return True
end if

So the error is on the line 3 

This is the program:

dim data as boolean=true
'dim dt as system.data.datarow
if CType(mainformdataset.tables("BO3").rows(0).item("TAXPOINTDT"),system.date)=01.01.1900
Return False
ELSE
Return True
end if

So the error is on the line 3 with the line 4 

This is a PHC program and is on the web

Ty for your collab!

Dim cmd As New OleDb.OleDbCommand
        Dim conn As New OleDb.OleDbConnection
        Dim constr As String
        Dim dr As OleDbDataReader
        constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\VB.Net Secondary\SecondaryDb.accdb;Persist Security Info=False"
        'Object To Use As SQL Query
        conn.ConnectionString = constr
        conn.open()
        'Search SQL Query, Including a Parameter Called Name		'This Query Simply Retrieves All Information That Matches Our Criteria
        cmd = New OleDbCommand("Select * From Studenttbl WHERE Student_ID = @StuID", conn)
        cmd.Parameters.AddWithValue("@StuID", txtStudentID.Text)
        dr = cmd.ExecuteReader
        While dr.Read
            MsgBox(dr(1))
            txtSurname.Text = dr.Item("LastName")
            txtFirstName.Text = dr.Item("FirstName")

        End While
        dr.Close()
        dr.Dispose()
        conn.Close()

    class Program
    {
        public static int ERROR_CANCELLED { get; private set; }

        private static bool IsRunAsAdmin()
        {
            WindowsIdentity id = WindowsIdentity.GetCurrent();
            WindowsPrincipal principal = new WindowsPrincipal(id);

            return principal.IsInRole(WindowsBuiltInRole.Administrator);
        }

        static void Main(string[] args)
        {
            if (!IsRunAsAdmin())
            {
                ProcessStartInfo proc = new ProcessStartInfo(@"C:\Personal Docs\FileWatcherBackups\20170221\FileWatcher\FileWatcherScheduleApp\bin\Release\FileWatcherScheduleApp.exe");
                proc.UseShellExecute = true;
                proc.WorkingDirectory = Environment.CurrentDirectory;
                proc.FileName = Assembly.GetEntryAssembly().CodeBase;
                proc.WindowStyle = ProcessWindowStyle.Normal;
                //proc.FileName = myExePath;
                proc.CreateNoWindow = false;
                //proc.UseShellExecute = false;

                proc.Verb = "runas";

                try
                {
                    Process.Start(proc);
                }
                catch (Win32Exception ex)
                {
                    if (ex.NativeErrorCode == ERROR_CANCELLED)
                    { }
                    else
                    { }
                }
                catch
                {
                    Console.WriteLine("This application requires elevated credentials in order to operate correctly!");
                }

                Application.Exit();
           }
        }
    }

private void Form1_Load(object sender, EventArgs e)
{
  UserControl1 uc1 = new UserControl1();
  uc1.Parent = this;
  uc1.Location = new Point(607, 350);
}

public void SetText(String testo)
    {
      Graphics gr;
      PaintEventArgs e;

      gr = CreateGraphics();
      Font f = new Font("Tahoma", 14, FontStyle.Bold);
      e = new PaintEventArgs(gr, ClientRectangle);
      SolidBrush br = new SolidBrush(System.Drawing.SystemColors.ControlText);
      StringFormat sf = new StringFormat();
      sf.Alignment = StringAlignment.Center;
      Rectangle centered = e.ClipRectangle;
      centered.Offset(0, (int)(e.ClipRectangle.Height - e.Graphics.MeasureString(testo, f).Height) / 2);

      e.Graphics.DrawString(testo, f, br, centered, sf);

    }

private void Form1_Load(object sender, EventArgs e)
{
  UserControl1 uc1 = new UserControl1();
  uc1.Parent = this;
  uc1.Location = new Point(607, 350);
  uc1.SetText("1");
}

public void SetText(String testo, PaintEventArgs e)
{
  Graphics gr;
  //PaintEventArgs e;
  gr = CreateGraphics();
  Font f = new Font("Tahoma", 14, FontStyle.Bold);
  //e = new PaintEventArgs(gr, ClientRectangle);
  SolidBrush br = new SolidBrush(System.Drawing.SystemColors.ControlText);
  StringFormat sf = new StringFormat();
  sf.Alignment = StringAlignment.Center;
  Rectangle centered = e.ClipRectangle;
  centered.Offset(0, (int)(e.ClipRectangle.Height - e.Graphics.MeasureString(testo, f).Height) / 2);

  e.Graphics.DrawString(testo, f, br, centered, sf);

}

private void Form1_Load(object sender, EventArgs e)
{
  UserControl1 uc1 = new UserControl1();
  uc1.Parent = this;
  uc1.Location = new Point(607, 350);

  PaintEventArgs ea;
  Graphics gr;
  gr = CreateGraphics();
  ea = new PaintEventArgs(gr, uc1.ClientRectangle);

  uc1.SetText("1", ea);
}

private void UserControl1_Paint(object sender, PaintEventArgs e)
{
  Font f = new Font("Tahoma", 14, FontStyle.Bold);
  string s = "1";
  SolidBrush br = new SolidBrush(System.Drawing.SystemColors.ControlText);
  StringFormat sf = new StringFormat();
  sf.Alignment = StringAlignment.Center;
  Rectangle centered = e.ClipRectangle;
  centered.Offset(0, (int)(e.ClipRectangle.Height - e.Graphics.MeasureString(s, f).Height) / 2);

  e.Graphics.DrawString(s, f, br, centered, sf);
}

private void UserControl1_Paint(object sender, PaintEventArgs e)
{
  SetText("1");
}

private void UserControl1_Paint(object sender, PaintEventArgs e)
{
  SetText("1",e);
}