2) As MyResult FROM cc;"    rs.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic    Do While Not rs.EOF        Debug.Print rs!c2, rs!MyResult        rs.MoveNext    Loop    rs.Close    Set rs = NothingEnd Function