.NET (Core and Framework)

<pre>Private Sub btnGetGeneralLogData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetGeneralLogData.Click
        If bIsConnected = False Then
            MsgBox("Please connect the device first", MsgBoxStyle.Exclamation, "Error")
            Return
        End If

        Dim idwTMachineNumber As Integer
        Dim idwEnrollNumber As Integer
        Dim idwEMachineNumber As Integer
        Dim idwVerifyMode As Integer
        Dim idwInOutMode As Integer
        Dim idwYear As Integer
        Dim idwMonth As Integer
        Dim idwDay As Integer
        Dim idwHour As Integer
        Dim idwMinute As Integer

        Dim idwErrorCode As Integer
        Dim iGLCount = 0
        Dim lvItem As New ListViewItem("Items", 0)

        Cursor = Cursors.WaitCursor
        lvLogs.Items.Clear()
        AxCZKEM1.EnableDevice(iMachineNumber, False) 'disable the device
        If AxCZKEM1.ReadGeneralLogData(iMachineNumber) Then 'read all the attendance records to the memory
            'get records from the memory
            While AxCZKEM1.GetGeneralLogData(iMachineNumber, idwTMachineNumber, idwEnrollNumber, idwEMachineNumber, idwVerifyMode, idwInOutMode, idwYear, idwMonth, idwDay, idwHour, idwMinute)
                iGLCount += 1
                lvItem = lvLogs.Items.Add(iGLCount.ToString())
                lvItem.SubItems.Add(idwEnrollNumber.ToString())
                lvItem.SubItems.Add(idwVerifyMode.ToString())
                lvItem.SubItems.Add(idwInOutMode.ToString())
                lvItem.SubItems.Add(idwYear.ToString() & "-" + idwMonth.ToString() & "-" & idwDay.ToString() & " " & idwHour.ToString() & ":" & idwMinute.ToString())
            End While
        Else
            Cursor = Cursors.Default
            AxCZKEM1.GetLastError(idwErrorCode)
            If idwErrorCode <> 0 Then
                MsgBox("Reading data from terminal failed,ErrorCode: " & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
            Else
                MsgBox("No data from terminal returns!", MsgBoxStyle.Exclamation, "Error")
            End If
        End If

        AxCZKEM1.EnableDevice(iMachineNumber, True) 'enable the device
        Cursor = Cursors.Default
    End Sub

await UserManager.SendEmailAsync(user.Id, "Confirm your account", "Please confirm your account by clicking <a href=\"" + callbackUrl + "\">here</a>");

public class UserManager<TUser, TKey> : IDisposable

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()