Dim cursor As Cursor
Dim tienames As String
cursor=SQL1.ExecQuery("select TeamName from GamePlay")
For i = 0 To cursor.rowcount -1
cursor.position = i
tienames = tienames & cursor.getstring("TeamName") & " and "
Next
tienames = tienames.SubString2(0,(tienames.Length -4))
Msgbox(tienames & " have tied.","Tied Game")