Visual Basic

Public Function load_am_Invoices( _
        ByVal p_currentDate As DateTime) As Integer

        Dim dwExitCode As Integer = 2
        Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\amp\sis1; Extended Properties=dBASE IV"
        Dim queryString As String = _
        "SELECT * " & _
        "FROM ARCUS01.dbf " & _
        "WHERE FORDATE=@startDate"

        Dim connection As New System.Data.OleDb.OleDbConnection(connString)
        Dim command As New System.Data.OleDb.OleDbCommand(queryString, connection)

        Dim paramStartDate As System.Data.OleDb.OleDbParameter
        paramStartDate = New System.Data.OleDb.OleDbParameter("@startDate", OleDbType.DBDate)
        paramStartDate.Value = p_currentDate
        command.Parameters.Add(paramStartDate)

        Try

            connection.Open()
            Dim reader As System.Data.OleDb.OleDbDataReader = command.ExecuteReader()
            While reader.Read()

            End While

            reader.Close()
            connection.Close()

        Catch ex As Exception
            dwExitCode = 1

        End Try


        dwExitCode = 0

        Return dwExitCode

    End Function

Dim chevy(8) As Decimal
        Dim ford(8) As Decimal
        Dim chevyCount As Integer = 0
        Dim fordCount As Integer = 0
        Dim index As Integer = 0

        For index = 0 To 7
            Console.WriteLine("Enter Chevy " & (index + 1) & " : ")
            chevy(index) = Console.ReadLine()
        Next

        Console.ReadLine()

        For index = 0 To 7
            Console.WriteLine("Enter Ford " & (index + 1) & " : ")
            ford(index) = Console.ReadLine()
        Next

        Console.ReadLine()

        For index = 0 To 7
            If (chevy(index) < ford(index)) Then
                chevyCount = chevyCount + 1
                Console.WriteLine("Chevy won by " & ford(index) - chevy(index) & " . ")
                Console.WriteLine("Chevy has won " & chevyCount & " races.")
            End If
        Next
        For index = 0 To 7
            If (chevy(index) > ford(index)) Then
                fordCount = fordCount + 1
                Console.WriteLine("Ford won by " & chevy(index) - ford(index) & " . ")
                Console.WriteLine("Ford has won " & fordCount & " races.")
            End If
        Next

        For index = 0 To 7
            If (chevy(index) = ford(index)) Then
                chevyCount = fordCount
                Console.WriteLine("This race was a tie!")
            End If
        Next

        Console.ReadLine()

        If chevyCount > fordCount Then
            Console.WriteLine("Chevy wins the match!")
        Else
            Console.WriteLine("Ford wins the match!")
        End If

        Console.ReadLine()

    End Sub