Set rs_dbgrd_HighScore02 = New Recordset
 
         With rs_dbgrd_HighScore02
            .Fields.Append "PL", adInteger
            .Fields.Append "MSID", adInteger
            .Fields.Append "MS", adBSTR
            .Fields.Append "WB", adInteger
            .Fields.Append "SpTg", adInteger
            .Fields.Append "Punkte", adInteger
 
            .Open
 
            Do Until rs_maxPuTS.EOF
               .addnew
 
               .Fields("PL") = rs_maxPuTS.AbsolutePosition
               .Fields("MSID") = rs_maxPuTS.Fields("dbf_MSID")
               .Fields("MS") = rs_maxPuTS.Fields("dbf_MS_Name")
               .Fields("WB") = rs_maxPuTS.Fields("dbf_MS_Nr_WB")
               .Fields("SpTg") = rs_maxPuTS.Fields("dbf_Nr_SpTgFS")
               .Fields("Punkte") = rs_maxPuTS.Fields("dbf_Pges_TS")
 
               .Update
               rs_maxPuTS.MoveNext
            Loop
         End With
 
        rs_dbgrd_HighScore02.Sort = "MS"