Visual Basic

conn.ConnectionString = "server=localhost;userid=root;password=;database=amwps"
        Dim result As Integer
        Dim dto As DateTime
        Dim dfrom As datetime
        Try
            conn.Open()
            For Each row As DataGridViewRow In DataGridView1.Rows
                If row.Cells(0).FormattedValue <> "" Or row.Cells(1).FormattedValue <> "" Then
                    Dim sDateFrom As String
                    Dim sDateTo As Double
                    sDateFrom = CStr(row.Cells(3).FormattedValue)
                    sDateTo = CStr(row.Cells(4).FormattedValue)
                    tHrs = sDateFrom - sDateTo
                    strSql = "INSERT INTO tbl_attendance (id, employeeNumber, dates, timein, timeout, totalhrs, late) VALUES ('" _
                                & CStr(row.Cells(0).FormattedValue) & "','" _
                                & CStr(row.Cells(1).FormattedValue) & "','" _
                                & CStr(row.Cells(2).FormattedValue) & "','" _
                                & CStr(row.Cells(3).FormattedValue) & "','" _
                                & CStr(row.Cells(4).FormattedValue) & "','" _
                                & CStr(row.Cells(5).FormattedValue) & "','" _
                                & CStr(row.Cells(6).FormattedValue) & "')"
                    With cmd
                        .Connection = conn
                        .CommandText = strSql
                    End With
                    result = cmd.ExecuteNonQuery
                End If

            Next
            If result = 0 Then
                MsgBox("No saved Record.")
            Else
                MsgBox("All Records Saved.")
            End If
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            conn.Dispose()
        End Try
        conn.Close()

Imports MySql.Data.MySqlClient
Public Class frmCreditSubjs
    Public conn As New MySqlConnection
    Public cmd As New MySqlCommand
    Public cmd1 As New MySqlCommand
    Public dadapter As New MySqlDataAdapter
    Public datardr As MySqlDataReader
    Public strSql As String
    Public datardr1 As MySqlDataReader
    Public strSql1 As String
    Public subjectcode1 As String
    Public units1 As String
    Public preReq1 As String
    Public semester1 As String
    Public year1 As String
    Public count As Integer
    Private Sub InsertLoad()
        conn.ConnectionString = "server=localhost;userid=root;password=;database=aes"

        Try
            conn.Open()
            strSql = "select subjectcode, units, prereq, semester, year from tbl_subjects"
            cmd = New MySqlCommand(strSql, conn)
            datardr = cmd.ExecuteReader()
            While datardr.Read()
                count += 1
                subjectcode1 = datardr("subjectcode")
                units1 = datardr("units")
                preReq1 = datardr("prereq")
                semester1 = datardr("semester")
                year1 = datardr("year")
                
                Try
                    strSql = "INSERT INTO tbl_studProspectus values ('', '" & textSNumber.Text & "','" & subjectcode1 & "', '" & units1 & "', '" & preReq1 & "', '" & semester1 & "', '" & year1 & "','')"
                    cmd = New MySqlCommand(strSql, conn)
                    datardr = cmd.ExecuteReader()
                Catch ex As MySqlException
                    MessageBox.Show(ex.Message)
                Finally
                    conn.Dispose()
                End Try
            End While
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            conn.Dispose()
        End Try

    End Sub
    Private Sub frmCreditSubjs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        InsertLoad()
    End Sub
End Class

Select Case channel
'Channel 1 Threshold Check'
    Case Is = 1
    If ((Cells(i, 8).Value > Range("N10")) Or (Cells(i, 8).Value < Range("N10") And Cells(i, 6) > Range("N12")) Or (Cells(i, 8).Value > Range("N11") And Cells(i, 7) > Range("N13"))) Then
            
         
            
            Range("N21") = conc1
            Cells(i, 8).Font.Color = vbRed 'Colour the cells that meets the conditions'
            Cells(i, 6).Font.Color = vbRed 'Colour the cells that meets the conditions'
            Cells(i, 7).Font.Color = vbRed 'Colour the cells that meets the conditions'
     ElseIf ((Cells(i, 8).Value < Range("N10")) Or (Cells(i, 8).Value > Range("N10") And Cells(i, 6) < Range("N12")) Or (Cells(i, 8).Value < Range("N11") And Cells(i, 7) < Range("N13"))) Then
            
            Disc1 = Disc1 + 1
            Range("O21") = Disc1
            
    End If