Sub Game_GetScoreInformation(gameUID As Long, gameRec As gameRecord)

    Dim rs As New ADODB.Recordset
    Dim s As String
    Dim i As Integer
    
    s = "select "
    For i = 1 To 10
        s = s + "visitorscore" + Format(i) + ", "
    Next i
    For i = 1 To 10
        s = s + "homescore" + Format(i) + ", "
    Next i
    s = s + "entrymode from games where gameuid = " + Format(gameUID)
    rs.Open s, dbConnection, adOpenForwardOnly, , adCmdText
    
    If Not rs.EOF Then
        rs.MoveFirst
        For i = 1 To 10
            gameRec.visitorScore(i) = StrCopy(rs(i - 1))
        Next i
        For i = 1 To 10
            gameRec.homeScore(i) = StrCopy(rs(i + 9))
        Next i
        gameRec.entryMode = rs(20)
    End If
    
    rs.Close
    Set rs = Nothing
    
End Sub