database problem

jeg er ved at lave et odds program og er stødt ind i problemer som jeg håber at der er nogle der kan hjælpe med.

ind til nu har jeg lavet så man kan vælge et hold fra en comboboks og så kommer der alle mulige oplysninger frem. det virker fint problemet er at jeg vil have programmet til at vise hvem holdet har spillet mod og det kan jeg ikke rigtig få til at virke

her er source koden

Dim dbname As String
Dim db As Database
Dim rs As Recordset
Dim rs2 As Recordset

    \' Open the database.
    dbname = App.Path
    If Right$(dbname, 1) <> \"\\\" Then dbname = dbname & \"\\\"
    dbname = dbname & \"Team.mdb\"
   
    Set db = OpenDatabase(dbname)
  Set rs = db.OpenRecordset(\"SELECT TeamID, Teamname FROM Team ORDER BY Teamname\", dbOpenSnapshot)
   
  Set rs2 = db.OpenRecordset(\"SELECT TeamAway.teamname FROM qryMatch\", dbOpenSnapshot)
   
    \' Load the ComboBox.
    rs.MoveFirst
    Do While Not rs.EOF
        cboTeamhome.AddItem rs!teamname
        cboTeamhome.ItemData(cboTeamhome.NewIndex) = rs!teamID
        rs.MoveNext
    Loop
   
    rs.Close
     
    \' Load the ComboBox.
    rs2.MoveFirst
    Do While Not rs2.EOF
       
        cboTeamaway.AddItem rs2!TeamAway.teamname
        cboTeamaway.ItemData(cboTeamaway.NewIndex) = rs2!teamAwayID
       
      rs2.MoveNext
    Loop
 
    rs2.Close
    db.Close
   
    \' Connect the Data control to the database.
    \'datTeamname.DatabaseName = dbname
    datTeamoplysninger.DatabaseName = dbname
    \'datmatches.DatabaseName = dbname
    \' Select the first choice.
    cboTeamhome.ListIndex = 0
    cboTeamaway.ListIndex = 0

den kommer med følgende fejlmeddelse method or data member not found
hvad gør jeg galt

håber det er en der kan hjælpe